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AUTHOR’S INTRODUCTION 


This book will give you and your computer power. Power to 
replicate reality in a way which can be quite uncanny. From 
microbes which fight it out in a closed environment for the right to 
survive, to a program which puts you in the cockpit of a 
particularly temperamental plane, there is a wide range of 
programs to allow you to experience this power in action. 

There is more than programs in this book. As well as the ready-to- 
run material, you’ll discover how easy it is to analyse real-life 
situations so you can create your own computer simulations, for 
entertainment and instruction. 

You now have the power. Use it. 

Tim Hartnell, 

London, 1985 


Tim Hartnell is one of the world’s top-selling computer authors. Recent works include Exploring 
Artificial Intelligence on your Commodore 64 (Bantam Books, New York, 1985; Interface Publications 
Ltd., London, 1985), Creating Adventure Programs on your Microcomputer, (Ballantine, New York, 
1984) and The Personal Computer Handbook (Virgin Books, London, 1984). He is founding editor of the 
magazine ZX Computing, and contributes a regular column (Response Frame) to Your Computer 
magazine. 
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GETTING THE 
PROGRAMS RUNNING 


The programs were all written originally on an IBM PC. The 
listings in the main body of the book are from the IBM PC and will 
run, without modification, on all the IBM PC, IBM XT and 
compatible machines. The listings have deliberately been written in 
a common subset of Microsoft BASIC, and, with one exception, 
will run with minimum changes on any machine fitted with BASIC. 
The exception is the POINT-DUTY ROBOT program, which 
demands access to high-resolution graphics, and the use of a 
command such as PSET or POINT. You may need to consult your 
system’s manual to find out the equivalent command for your 
machine. 

To seed the random number generator, I have used the line: 

RANDOMIZE VAL(RIGHT$(TIME$,2)) 

which you should replace with your own system’s equivalent (or 
leave out altogether, if you do not need such a line). 

Specific versions of the programs for the Spectrum/Spectrum+ 
and for the Commodore 64 appear near the end of the book. If you 
have an Amstrad or a BBC Micro use the program listings as they 
are in the main body of the book. 
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Chapter One - 

The Power of Simulations 


Simulations give you power. Power to try your hand vicariously at 
almost any activity you can imagine. Running a multi-million 
dollar manufacturing concern, flying to the moon, driving a racing 
car or running the country as president - all these experiences can 
be yours through computer simulations. 

In this book, you’ll find programs to allow you to take part in all 
these scenarios, and more. As well, you’ll be gently introduced to 
the art of creating computer simulations, so that after you’ve 
enjoyed the programs in the book, you can write your own. 
Studying the listings in this book, observing the way the variables 
interact, and mathematical formulae are used to replicate ’real life’ 
situations, will give you a number of easy-to-apply techniques to 
use in your own simulations. 

Despite their entertainment value, computer simulations are not 
just elaborate games. Simulations have found ready acceptance in 
many situations where reality is too expensive, too dangerous or 
too complex to allow human beings to learn to control. Many, 
many hours of airtime during pilot training are clocked up in 
elaborate flight simulators - controlled, of course, by computers - 
rather than up in the air. 

Operators in conventional and nuclear power-plants around the 
world train on simulators, where they can learn their skills without 
facing the real catastrophes which could come from making 
mistakes. One example of the use of computer-controlled 
simulations in this area comes from Australia, where an electricity 
generating board has spent half a million dollars to buy a simulator 
to train its operators. The simulator, developed and marketed by 
an Australian company called Control Simulation Technology, 
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allows a number of emergency situations to be created, so that staff 
can learn to cope with them. Such training would be impossible 
without the use of a simulator. 

Another computer simulator, which might be seen as perhaps a 
little sinister, uses the reactions of a few test subjects to simulate the 
reaction of a significant portion of the population in testing the 
effectiveness of television and print advertising. The simulator, 
developed by a psychologist named Marcus Tomlian, is claimed to 
be “the most sophisticated precision system for measuring 
consumer reactions to advertisements”. The device, called Mind 
Monitor, is made up of a series of sensors for taking brain and heart 
readings of the sample group of people. The readings from these 
sensors are fed into the simulator proper, which analyses the brain 
waves and cardiovascular readings, and from them extrapolates 
the probable reaction of the population as a whole. The simulator 
runs while an advertisement is shown to the test group, and gives a 
second by second reaction readout. 

Mr. Tomlian says Mind Monitor can therefore be used to find weak 
points in an advertising campaign, leading to ‘fine-tuning’ of 
particular campaign elements. General Electric is believed to be 
currently at the forefront of developing computer simulations 
which can help gauge viewers’ attention to advertising, while one of 
the world’s biggest agency networks, Yound and Rubicam, is also 
investigating the field. 

Whether you wish to replicate the chemical processes inside an 
atomic reactor, mimic the reactions of potential purchasers to 
consumer advertising, or imitate the control system of the Space 
Shuttle, a computer simulation can be employed. With a 
simulation, the reactions and actions of a complex system can be 
represented in quite graphic detail. Often, the simulation can be 
manipulated in ways which would be difficult, dangerous or just 
impossible with the real situation. For example, a pilot training on 
a flight simulator could attempt to land during a hurricane with 
very little fuel, or an operator at a nuclear power station could be 
faced with the possibility of a melt-down. 
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Limitations 


A computer simulation, of course, must never be confused with the 
system it is simulating. All simulations are, to a greater or lesser 
extent, simplifications of the system they represent. Low level 
simulations, like the programs in this book, and the simulations 
you are likely to create in the next few months, are often drastic 
simplifications. Despite this, they can be surprisingly effective, and 
trying to land using our Flight Simulation program can be almost as 
nerve-racking as the real thing. 

You’ll find that there is as much art as science in creating effective 
simulations. The science is working out the formulae to use which 
link the interacting elements of the system you are attempting to 
simulate. The art is presenting those formulae in a way which 
makes the experience of interacting with the simulation as ‘life like’ 
and rewarding as possible. This means the output must be realistic, 
and must be in a form which is readily understood. With many 
simulations, the speed with which the program responds to user 
input is very important. If the simulation is occuring in ‘real time’ 
(that is, a second of time elapsed within the actions of the 
simulation is intended to equal a second of real-life time) it is 
important that the simulation is written so that this one-to-one 
correspondence between the two times is adhered to as closely as 
possible. 

Simulations can be divided into two groups - those where the data 
comes in separate, discontinuous packages, and those where the 
data values flow into each other. Queuing systems, where elements 
to be serviced (such as customers at a bank counter) wait in a line 
until a free service point is available, are the predominant type of 
discontinuous situations which are often examined using 
simulations. In the second type of simulation, where the data 
values flow into each other, values (such as the internal heat of a 
nuclear reactor) are constantly changing with respect to time. 

It is important to try and determine, before you start any 
programming, which data type is predominant within the real- 
world system you are going to program. 
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Any situation where elements are added to a queue at rate A and 
removed from the other end at rate B is a candidate for a discrete 
simulation. There are many, many such situations in real life, other 
than simply waiting to be served in a line at the supermarket 
checkout. Discrete queues exist in such disparate situations as egg 
collection in an old-fashioned farmyard, when a queue can be seen 
in the difference in time between eggs being laid and gathered), 
road accident victims waiting for ambulances, and airplanes at 
JFK waiting for a take-off window. 

In this book, we have a Space Landing Simulation in which you 
have to try and land a space craft on the moon. This program waits 
for an input (a number, representing ‘thrust’, between zero and 
nine) before continuing. If the program did not wait for a key press, 
but kept going through its operational cycle over and over again, 
strobing the keyboard and making changes if it detected a valid key 
press, the simulation would clearly be a continuous one. There 
would be no instant when the velocity and position of the craft were 
not changing. Add a similar ‘real-time’ control facility to our Flight 
Simulation program, and you’d have another example of a non¬ 
discrete simulation. 

The predator/prey simulation, in the chapter on simultaneous 
equations, is also a continuous one. There is no point in time, once 
the program begins cycling through the major loop, when the 
values of the two major variables (the ‘predator’ and the ‘prey’) are 
not being updated. 

In the next chapter of this book, we’ll look at the basic elements of a 
simulation, and show how a problem can be broken down so that a 
simulation of it can be created. The subsequent chapters explore 
many types of simulations, so you can see various simulation 
techniques in action, and can study the programs to see how the 
results were achieved. The lessons you learn from these chapters 
can then be applied to help you create your own simulations. 

Chapter three looks at loops and feedback, the fundamental 
elements of all simulations, and shows these in action with the 
Space Landing Simulation program. From there we move to Monte 
Carlo Simulations, where the effects of random inputs on a system 
are discussed. Chapter five is the ‘predator/prey’ simulation 
mentioned earlier, where simultaneous equations model the 
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interaction of two kinds of cells, living within a culture medium, 
and competing for the right to survive. 

The next chapter presents John Conway’s classic computer 
simulation, Life, where birth and death occur in a less blood-thirsty 
way than in our ‘predator/prey’ simulation. The initial version of 
this program allows you to encode starting generations as DATA 
statements, so evolutionary patterns can be studied several times. 
Then you’re shown the simple changes to make in order to allow 
your computer to generate the starting colony at random. 

Chapters seven, eight and nine - which look at robot simulations - 
are considerably more ambitious than the preceding ones. In these 
chapters, we will actually examine two simulations at once. Firstly, 
we emulate the action of a computer language interpreter, which 
‘understands’ commands entered in a new language RCL (‘Robot 
Control Language’). Secondly, the programs use their under¬ 
standing of RCL to move a little robot around the screen, which 
leaves Logo-like designs as it trundles around. The programs given 
here form a solid basis for developing a complete turtle graphics 
program. 

Artificial intelligence is one of the ‘hot’ areas of computer science 
at the moment, the book would not be complete without a program 
(or two) which showed how a simulation program can apparently 
endow a computer with intelligence. Chapter ten allows you to 
attempt the fairly fruitless task of trying to beat your computer at 
the game Connect Four, and explains how the program assesses its 
‘best’ move. The move-selection technique can be adapted for 
many board games. The following chapter, eleven, introduces a 
program which replicates an 1890 Spanish machine which plays a 
particular chess end game. The Quevedo Chess Machine was 
probably the first genuine attempt to produce a chess-playing 
machine, so it is appropriate that we have it replicated in this book. 

From chess we move into the political arena, and show how the 
economy of the US can be (admittedly very crudely) modelled 
within a computer simulation. You are the president, and you have 
to try to control the economy. You may well have a deeper 
sympathy for the real occupant of the Oval Office after you find 
your best efforts blowing up in your face. 
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Money manipulation lies at the heart of chapter thirteen’s 
simulation of a small stock market in action, as you invest in the 
fluctuating fortunes of five companies trying to reach a financial 
goal you have set for yourself. If you find you have considerable 
skill in this area, you can see if it will stand you in good stead in 
manufacturing. Detroit City, in chapters fifteen and sixteen, 
confronts you with a difficult challenge, as you try to bring an 
ailing automobile manufacturing company back to profitable life. 
Fail, and you’re out of a job. Succeed, and you get a seat on the 
board. 

We move from the world of business simulations to programs 
which simulated leisure activities. Gridiron, in chapters seventeen 
and eighteen, puts you up against the computer-controlled Silicon 
Cowboys (or you can use the program to moderate a clash between 
two human beings). The next program gives you the chance to play 
a three-set game of tennis against your computer. Again, if you 
prefer, you can use the simulation simply to moderate the action, 
and play against another flesh-and-blood opponent. 

In chapters twenty-one and twenty-two, you are at the wheel of a 
racing car, as you try out your skill on your choice of Grand Prix 
track, in Britain, Germany, Italy or Monaco. The tracks within the 
program are based on the actual tracks in real life, although I doubt 
whether the skills you pick up here could very usefully be 
transferred to genuine Grand Prix driving on those circuits. 

Finally, in chapters twenty-three and twenty-four, we have our 
simulation de resistance, a complete flight simulator. The program 
simulates an airplane which is fiendishly difficult (but not 
impossible) to fly. You’ll find that keeping track of four or five 
constantly-changing factors at once will take all your concen¬ 
tration. But the satisfaction you’ll feel on your first successful 
landing will make it all worthwhile. 

As you can see, we have some fascinating territory ahead of us. 
Let’s go. 
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Chapter Two 

Components of A Simulation 


A simulation is a computer model of cause and effect. Event A is 
linked to event B by equation X. Modify B and C is affected, by 
linking factor Y. And so on. Isolate the links (X and Y, in the 
preceding lines) and you have the raw ingredients of a simulation. 

If you turn on a light switch, electricity will flow through the 
circuit, and the light will come on. Cause and effect are easy to see 
in this situation: 


CAUSE-> EFFECT-> EFFECT 

SWITCH ON CURRENT FLOWS LIOHT OLOWS 


It would be, of course, a trivial exercise to write a program to 
simulate the result of turning on a light switch. However, this 
should not blind us to the fact that, in essence, all simulations you 
write will be a clear linking between causes and effects. 


More Complex Links 

The links may not, of course, be as simple and straightforward. 

Some effects may only come into play when variables reach ‘trigger 
values’ (such as the car engine in our Grand Prix simulation 
blowing up only if the engine temperature exceeds 200 degrees). 
Your own simulations may have a link like this: 

EVENT X -—leads, If A present to — > EVENT Y 

♦--.--leads, If B present to —> OUTCOME Z 
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Analyse the links, and express them in a diagram like the above 
(perhaps substituting mathematical formulae for lines like ‘leads, if 
A present to’) and you’re well on the way to writing your own 
simulation program. 

The first simulation program in this book (in the next chapter) puts 
you in the position of a pilot trying to land your space craft on the 
moon. The causal links in this program are reasonably 
straightforward, but still manage to produce a very interesting (and 
somewhat unpredictable) outcome. 

Here are the links (and THRUST is the input from the user, each 
time through the loop): 


+-> FUEL « FUEL - THRUST 

i IF FUEL * 0->->->- 

: VARIABLE FLAG (VF) x THRUST - 2 

: HEIGHT x HEIGHT + VELOCITY + VF/4 

i VELOCITY X VELOCITY + VF 

s IF HEIGHT < 10->->-+ 

---<-< —GOTO NEW THRUST INPUT 

V 

IF VELOCITY > -9 AND VELOCITY < 5 THEN LAND SUCCESSFULLY 
ELSE-+ 


+ 


V 


V 


CRASH-<-- 


Although this may look a little complex at first sight, it is actually 
fairly simple. You can see that the causal loop diagram looks pretty 
much like a flow chart, and actually contains some lines which 
could apparently be programmed directly. When you look at the 
program (especially lines 170 through to 240) you’ll see that some 
of the lines above do appear almost unchanged in the program. 


Feedback 

Causal loops contain elements which interact. They also contain 
feedback. The results of one series of computations (in the 
moon-lander simulation, the results are the height, velocity and 
fuel left) feed back to the user to affect the next input (THRUST 
in this case). The feedback in this case comes from outside the 
system, from the user. 
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Feedback can be seen in many situations, such as that involving a 
thermostat on a room heater. If the room gets colder, the heater is 
turned up. When the room becomes warmer, the heater is turned 
down. In due course, the room temperature drops, and the cycle 
begins again. 

Feedback does not always lead to a fluctuating output. I am angry 
with you. I raise my voice. You shout back. I raise my voice some 
more, as I am further angered by you raising your voice. You, in 
turn, are made more angry by my increased volume, and shout 
even more loudly at me . .. and a self-reinforcing loop is set up. If 
the heater’s thermostat was set so that the hotter the room became, 
the more heat was produced, a similar self-reinforcing feedback 
loop would be seen (and felt!). 


Equilibrium Points 

Many feedback loops have an equilibrium point, and a good 
simulation may well be, in effect, inviting the program user to 
discover that equilibrium point. There may well be, for example, a 
thrust input with our moon-lander which allows the craft to sink 
gently down into the luna dust. 


Negative and Positive Loops 

A negative feedback loop (as the room gets hotter, the thermostat 
turns the heater down) tends to push the system towards an 
equilibrium point. A positive feedback loop (as the room gets 
hotter, the heater is turned up more) tends to lead to dramatically 
accelerating (or decelerating) growth rates, pushing the system 
away from an equilibrium point. 

It is fairly easy to understand how a single feedback loop can form 
the heart of a simple simulation. However, most situations in real 
life, when analysed, turn out to be made of more than one feedback 
loop. 
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For example, in the ‘predator/prey’ simulation (chapter five), we 
have two life forms, whose survival is inextricably bound together. 
If one species (the prey) dies out, the other will also die. If there are 
few predators, the prey numbers increase, leading to more food, so 
more predators are born, and these in turn eat more prey. The 
situation is dynamic, and constantly changing, as the simulation 
gives feedback to itself, which modifies its next run. Here is how 
chapter five’s program looks in a causal diagram: 


if enough 

♦--CELL Y exist->-+ 


: to support 
: is eaten 


♦ -reproduce->-+ : 

: in relation : : 

: to numbers No. of 

: CELL Y 

+ - < - + : 

+..< 


X, Y 


V 


: +---<- 

-reproduce--* 

: : 

in relation : 

No. of 

to numbers : 

CELL X 


* * 

S J. 

■4- 


A situation like this can stabilise, or move so that either X or Y 
becomes dominant, with the other cell reduced to an ineffectual 
level. Such simulations are fascinating to run, and their outcomes 
can be difficult to predict, even when you know the linking 
formulae well. In a simulation like this, where there are two 
negative feedback loops in operation, X and Y fluctuate about an 
equilibrium point as they act on each other. 

Your own simulation programs may well be easier to write if you 
consider in advance the behaviour of the system you want to 
model, in terms of positive or negative feedback loops, and the 
effect these will have on the system seeking an equilibrium point. 

Some relationships are easier to see than others. For example, this 
diagram shows the relationship between the work involved in 
pumping water from a well, the thirst produced by that work, and 
the amount of water produced: 
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<-+ +->-+ 

quantity amount 

of water pumped 

>-+ +-<-+ 

This is a fairly clear situation, and one which is probably simpler 
than any real-life situation you intend to model with a simulation 
system. If a double loop is needed to show the relationships of 
something simple like this, it is highly likely that the area you are 
studying will need two, or more, interacting loops. 

For example, oxygen use and replenishment on earth, can be 
shown with the following diagram: 


amount 

drunk 


More C02, so 
biosphere 4 1 
heats up 


1 


Greenhouse effect 
inhibits plankton 
growth 


Fertilizer runoff 
l^encourages algae 
growth in rivers 


Fossil fuels 



Industrial waste 
in rivers 

consumes 02, kills 
off marine life 


t 


*- 1 

Population 
increases, demand—, 
rises 


Burning forest 
areas reduce 02 
output, increase 
C 02 


•Waste industrial ._ 

gases pollute atmosphere 

Thermal pollution 
raises river temperatures 
reducing 02 capacity of 
water, and suffocating 
marine life 

_ 1 _,_ 


Time Against Action 

You may well find that producing a graph of the action of a system 
makes it easier to understand both the dynamics of the system, and 
the causal loops which are acting within it. 

If we plot the populations of CELL X and CELL Y, against time, 
from the runs of chapter five’s ‘predator/prey’ simulation, we get 
graphs like these: 
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These graphs show dramatically how the two life forms are related. 
As well, the crossover point of the lines suggests where the 
equilibrium points of the system may be. 

So, the causal loop diagrams help us find the underlying relations 
of the system we hope to simulate, and a graph of the outputs of the 
simulation against time allow us to see cause and effect in action 
within the system. This graphed data can help us to see the 
effectiveness (or otherwise) of our simulation, and assists our 
understanding of what is actually going on as the simulation runs. 

You now have enough background information to understand the 
processes involved in the creation and running of the simulation 
programs which make up the rest of the book. Once you get the 
programs up and running, you may well want to draw causal 
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diagrams to show the links between elements in these programs. As 
well, the output from some (but not all) of the simulations can be 
graphed, giving further insight into the working of the system being 
modelled. 
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Chapter Three 
Feedback in Action 


In this chapter, we’ll look at our first simulation program, one 
which has been around - in one form or another - since the earliest 
days of commercial computers. A lot of employee’s expensive 
computer time was consumed in those days as would-be space 
pilots tried to land creaky old space ships on the moon. 

Unlike the predator/prey simulations which use simultaneous 
equations, simulations like this one use a number of formulae held 
within a loop. After each run through the loop, the system operator 
receives feedback on the status of particular variables which are 
being modified. On the basis of this feedback, the operator decides 
what input to enter, and then waits for the computer to report back 
to him or her on the result of processing that input within the loop. 

Here is the series of mathematical operations within the loop 
(where A$ is the user input, signifying thrust): 
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The loop has certain exit conditions (such as, in this simulation, 
when you crash, run out of fuel, or manage to land safely) which 
abort the cycle and end the run with a status report to the operator. 
Lines 220 and 240 in this next section of the program check to see if 
the cycle should leave the loop, while 230 sends it back for another 
run through: 

2 2 0 IF HEIGHT < = 10 THEN 240 

230 IF HEIGHT>10 THEN 120 

240 IF VEL0CITY>-9 AND VEL0CITY<5 THEN 2 
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Of course, you don’t need to know this, or keep it in mind, when 
running a program like the Space Landing Simulation in this 
chapter. So far as you’re concerned, you’re trying to land your 
ship, and the mechanics of handling your input are none of your 
concern. 

User input is, as I said a short while ago, limited to thrust, you 
signify a high thrust by pressing the “9” key; a low thrust with the 
“1”; and zero thrust with the “0”. Intermediate values are entered 
by touching other number keys. There is no need to press the 
RETURN (or ENTER) key on this, as INKEY$ (or GET$) are used 
to read the keyboard. 

Let’s see how an unskilled pilot makes out when trying to land a 
space craft using this simulation: 


FUEL 

VELOCITY 

HEIGHT 

208.33 

-11.42 

497.03 

208.23 

-9.520001 

507.9 9 

208.1 3 

-7.62 

517.04 

208.03 

-5.72 

524.2 

207 . 93 

-3.82 

529.45 

207 . 83 

-1.92 

532.8 

207.73 

-.02 

534.26 

207.63 

1.88 

533.81 

207.53 

3.78 

531.47 

207.43 

5.68 

527.22 

207.33 

7.58 

521 .07 

188.23 

10.48 

341 .57 

17 9.13 

3.38 

332.87 

170.03 

-3.72 

331 .28 

160.93 

-10.82 

336 . 78 

151 .83 

-17.92 

349.3 9 

151.73 

-16.02 

366.84 

151 .63 

-14.12 

382.39 

151 .53 

-12.22 

396.05 

151 .43 

-10.32 

407.8 

151 .33 

-8.42 

417.66 

151.23 

-6.52 

425.61 
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150.03 

149.93 

149.83 

149.73 
149.63 
149.53 
149.43 
149.33 
149.23 
149.13 
149.03 

148.93 

148.83 


16.28 
18.18 
20.08 
21.98 
23.88 
25.78 
27.68 
29.58 
31 .48 
33.38 
35.28 
37.18 
39.08 


372.86 

356.11 

337.47 
316.92 

294.48 
270.13 
243.88 

215.74 
185.69 

153.75 
119.9 
84.15 
46.51 


YOU HAVE CRASHED INTO THE SURFACE... 


FINAL INSTRUMENT READINGS WERE: 
FUEL VELOCITY HEIGHT 

148.73 40.98 


NEW CRATER ON MOON 2.25 METERS DEEP! 
YOUR SKILL RATING IS -438 


The picture is very different when a skilled space jockey takes the 
controls: 


FUEL 

VELOCITY 

HEIGHT 

210.71 

4.02 

496.05 

210.61 

5.92 

491 .57 

210.51 

7.82 

485.18 

210.41 

9.7 2 

476.89 

210.31 

11.62 

466.7 

210.21 

13.52 

454.61 

210.11 

15.42 

440.62 

210.01 

17.32 

424.73 

209.91 

19.22 

406.94 

200.81 

12.12 

389.5 

191.71 

5.02 

379.16 

182.61 

-2.08 

375.92 

182.51 

- .1 8 

377.53 
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182.41 

1.72 

377.24 

182.31 

3.62 

375.05 

182.21 

5.52 

370.96 

182.11 

7.42 

364.97 

182.01 

9.32 

357.08 

150.91 

20.22 

126.75 

147.81 

19.12 

106.81 

144.71 

18.02 

87.97 

140.61 

15.92 

70.48 

134.51 

11.82 

55.59 

126.41 

5.72 

45.3 

124.31 

5.62 

39.61 

122.21 

5.52 

34.02 

118.11 

3.42 

29.03 

116.01 

3.32 

25.64 

113.91 

3.22 

22.35 

111 .81 

3.12 

19.16 

108.71 

2.02 

16.32 

107.61 

2.92 

14.08 

106.51 

3.82 

10.94 

YOU HAVE LANDED SAFELY! 


YOUR SKILL 

RATING IS 9067 


FINAL INSTRUMENT READINGS WERE: 
FUEL VELOCITY HEIGHT 

105.41 4.72 0 


Here’s the listing so you can do your bit for NASA: 

10 REM SPACE LANDING SIMULATION I 
20 RANDOMIZE VAL(RIGHT$(TIME$,2)) 

30 REM ***************************** 

40 REM SET STARTING VALUES 
50 FUEL=200+RND111*40 
60 VELOCITY = RND [1 ]* 20-6 
70 HEIGHT = 500-RND(1 1*1 0 
80 CLS 

90 PRINT « FUEL";TAB(12};" VEL0CITY";TAB 
(24);" HEIGHT" 

100 REM ***************************** 
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110 REM MAJOR CYCLE 
120 GOSUB 430 

130 IF F U E L < = 0 THEN FUEL = 0:THRUST = 0:GOT0 
170 

140 A$ = INKEY $ 

150 IF A $ <"0" OR A $ >"9" THEN 140 
1 6 0 THR UST = VAL[A $] + . 1 
170 FUEL=FUEL-THRUST 
180 FLAG=THRUST-2 
190 THRUST=0 

200 HEIGHT=HEIGHT+VELOCITY+FLAG/4 
210 VELOCITY=VELOCITY+FLAG 
220 IF HEIGHT<=10 THEN 240 
230 IF HEIGHT>10 THEN 120 

240 IF VELOCITY >-9 AND VEL0CITY<5 THEN 2 
90 

250 GOSUB 410 

260 PRINT "YOU HAVE CRASHED INTO THE SUR 
FACE..." 

270 IF HEIGHT>0 THEN HEIGHT=-HEIGHT 
280 GOTO 320 

290 PRINT "YOU HAVE LANDED SAFELY I" 

300 PRINT "YOUR SKILL RATING IS"INT[-100 
0*FUEL/[VELOCITY-HEIGHT)) 

310 HEIGHT=0 
320 GOSUB 410 

330 PRINT "FINAL INSTRUMENT READINGS WER 
E : " 

340 PRINT " FUEL";TAB[12);" VELOCITY"jTA 
B(24)}" HEIGHT" 

350 GOSUB 430 
360 GOSUB 410 
370 IF HEIGHT>=0 THEN END 

380 IF HEIGHT <0 THEN PRINT "NEW CRATER 0 
N MOON"INT[ABS[1O0*(HEIGHT+.2)/3) ) /10 0 " M 
ETERS DEEPI" 

390 PRINT "YOUR SKILL RATING IS ”I NT[100 
♦FUEL/[VELOCITY-HEIGHT)) 

400 END 

410 PRINT "- 
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420 RETURN 

430 PRINT I NT(100*FUEL)/I 00; 

440 PRINT TAB[12] ;-I NT(100*VEL0CITY )/10 0 

■ 

f 

450 IF HEIGHT>=0 THEN PRINT TAB(24);INT( 

100*HEIGHT)/100 

460 IF HEIGHT <0 THEN PRINT 

470 RETURN 

Once you can land consistently with the program in its current 
form, change line 50 to the following, to create a whole new 
challenge: 

50 F U EL = 100 + RND(1 )*40 
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Chapter Four 

Monte Carlo Simulations 


The term ‘Monte Carlo Simulations’ is given to those simulations 
which show the results of chance factors. The random elements in 
such programs may be weighted to simulate probabilities within 
specified limits (such as the results of throwing a pair of dice) or 
may be more or less genuinely random. In this chapter, you’ll see a 
fairly ‘open’ Monte Carlo simulation in action. 

Our program is designed to simulate the effect of Brownian 
movement on a very small particle suspended in a fluid. The 
random motion of such a particle (which is observed when the 
particle is less than about one-thousandth of a millimetre in 
diameter) is caused by the impact of the atoms or molecules of the 
fluid on the particle. Brownian movement can be seen as smoke 
disperses in still air, or ink is diffused in a tumbler of water. 

Brownian movement is named after Robert Brown, a Scottish 
botanist who in 1827 first noted (but was unable to explain) the 
movement when looking through a microscope at a solution of 
pollen grains in water. 

The simulation occurs on a 10 by 10 grid, with a single pollen grain, 
shown as “0”. When you run the program, you enter the position 
where you want the grain to start, and as well you set up a ‘goal’ 
position. The simulation ends when the pollen reaches the goal 
position. 

Here’s how it begins: 

ENTER FIRST START CO-ORDINATE [LESS 
THAN 10) 

? 3 
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ENTER SECOND START CO-ORDINATE (LESS 
THAN 10) 

? 4 


ENTER FIRST END CO-ORDINATE (LESS 
THAN 10) 

? 6 

ENTER SECOND END CO-ORDINATE (LESS 
THAN 10) 

? 7 

MOVE 1 


X 


0 


And here are some screen printouts as the Brownian movement 
makes the grain drift about: 

MOVE 5 


. . . 0 


X . . 
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MOVE 9 


MOVE 11 


0 . X 


0 

X 


Finally, on the 14 move, the pollen grain reaches the target 
position, and the demonstration ends: 

MOVE 14 


D EM ONSTRATION OVER 

Here’s the listing so you can explore this Monte Carlo 
demonstration: 

10 REM MONTE CARLO DEMONSTRATION 
20 GOSUB 3 7 0 s R E M INITIALIZE 

40 REM MAJOR CYCLE 
50 GOSUB 1 0 0 : R E M PRINT 

60 IF P=EP AND Q=EQ THEN PRINTsPRINT "DE 

MONSTRATION OVER”:END 

70 GOSUB 230:REM GENERATE MOVE 
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80 GOTO 50 

90 REM **************************** 
100 REM PRINTOUT 
110 A$(P,Q)="0" 

120 M =M +1 

130 CLSsPRINT:PRINT 
140 PRINT "M 0 V E"M 
150 FOR X=1 TO 10 
160 FOR Y = 1 TO 10 
170 PRINT A$(X,Y);" 

180 NEXT Y 
190 PRINT 
200 NEXT X 
210 RETURN 

220 REM **************************** 
230 REM GENERATE MOVE 
240 A$(P,Q)="." 

250 G = 0 

260 T = INT(R ND [ 1 )*4)+1 

270 ON T GOSUB 310,320,330,340 

280 IF G = 0 THEN 260 

290 IF G=1 AND RND(1)>.5 THEN 260 
300 RETURN 


31 0 

IF 

P >1 

THEN 

■a 

I 

Q. 

II 

Q. 

6 

= G +1 s 

RETURN 

320 

I F 

P <1 0 

THEN 

P = P+1 

: 

G = G +1 

: R ETURN 

330 

I F 

Q >1 

THEN 

Q = Q-1 s 

G 

= G +1 s 

RETURN 

340 

IF 

Q < 1 0 

THEN 

Q = Q + 1 

a 

a 

G = G +1 

s RETURN 


350 RETURN 

360 REM **************************** 

370 REM INITIALIZE 
380 CLS 

390 RANDOMIZE VAL(RIGHT$(TIME$,2 ) ) 

400 DIM AS(10,10) 

410 FOR X=1 TO 10 
420 FOR Y = 1 TO 10 
430 A «(X,Y)=" . " 

440 NEXT Y 
450 NEXT X 
460 PRINT:PRINT 

470 PRINT "ENTER FIRST START CO-ORDINATE 
(LESS THAN 10)" 
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480 INPUT P 

490 IF P<1 OR P>10 THEN 480 

500 PRINT "ENTER SECOND START CO-ORDINAT 
E (LESS THAN 10]" 

510 INPUT Q 

520 IF Q <1 OR Q > 1 0 THEN 510 
530 PRINTsPRINT 

540 PRINT "ENTER FIRST END CO-ORDINATE ( 
LESS THAN 10]" 

550 INPUT EP 

560 IF EP = P OR E P <1 OR EP>10 THEN 550 
570 PRINT "ENTER SECOND END CO-ORDINATE 
(LESS THAN 10]" 

580 INPUT EQ 

590 IF EQ=Q OR EQ<1 OR EQ>10 THEN 580 
600 A $ ( P , Q ] = " 0 " 

610 A$(EP f EQ)="X" 

620 RETURN 
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Chapter Five 
Simultaneous Equations 


We can create simulations which make use of simultaneous 
equations to show the effects of two interacting factors on each 
other. These equations are often used in ‘predator/prey’ 
simulations, such as the one we will examine in this chapter. 

We have two forms of cell, living in a culture. Both cells feed on 
nutrients in the culture medium, and attempt to reproduce as the 
simulation runs. Cell X also needs to consume cell Y in order to 
survive. If there are too many of cell X, it will kill off all of cell Y, 
and will then die itself. If there are none of cell X, cell Y will 
reproduce wildly, and choke the medium. 

You are allowed to set the starting numbers of cells X and Y in 
each run of the simulation. You have to try and create a population 
balance which will allow the cell colony to survive for as long as 
possible. Although the ‘degree of aggressiveness’ of cell X towards 
Y changes from run to run of the program (so you can’t just learn 
two numbers which will always work), it does not change within a 
single run, so you can try various combinations to see how they 
behave. 

The program first tells you the ‘decay factor’, which is the degree of 
aggressiveness cell X displays towards Y. It then asks you to enter 
the starting populations: 


D ECAY 

FACTOR IS 

.1408966 

ENTER 

NUMBER OF 

CELL X TO 

START 

? 37 

(LESS THAN 

40 ] 
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WE HAVE 37 X CELLS 


ENTER NUMBER OF CELL Y TO 
START (LESS THAN 40) 

? 25 

Once you’ve done this, the program gets underway, and works out 
what is going on, keeping you informed: 


TIME ELAPSED: 1 
37 CELL X 
25 CELL Y 


TIME ELAPSED: 2 
35 CELL X 
17 CELL Y 


TIME ELAPSED: 3 
46 CELL X 
9 CELL Y 


TIME ELAPSED: 4 
77 CELL X 
2 CELL Y 


TIME ELAPSED: 5 
37 CELL X 
1 CELL Y 


YOUR CELL CLASH SIMULATION SURVIVED 
FOR 5 TIME PERIODS. 


THE BEST SURVIVAL TIME SO FAR IS 5 


DO YOU WANT A NEW RUN (Y OR N)? 

The program also records the ‘longest life’ so far. It offers you 
subsequent runs so you can see the effect of different starting 
populations: 
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ENTER NUMBER OF CELL X TO 
START [LESS THAN 40) 

? 25 


WE HAVE 25 X CELLS 


ENTER NUMBER OF CELL Y TO 
START [LESS THAN 40) 

? 37 


TIME ELAPSED: 4 
2 CELL X 
35 CELL Y 


TIME ELAPSED: 5 
1 CELL X 
36 CELL Y 


YOUR CELL CLASH SIMULATION SURVIVED 
FOR 5 TIME PERIODS. 


THE BEST SURVIVAL TIME SO FAR IS 


ENTER NUMBER OF CELL X TO 
START [LESS THAN 40) 

? 38 


WE HAVE 38 X CELLS 


ENTER NUMBER OF CELL Y TO 
START (LESS THAN 40) 

? 38 


29 






TIME ELAPSED: 2 
13 CELL X 
34 CELL Y 


TIME ELAPSED: 3 
6 CELL X 
33 CELL Y 


TIME ELAPSED: 4 
3 CELL X 
33 CELL Y 


TIME ELAPSED: 5 
1 CELL X 
34 CELL Y 


YOUR CELL CLASH SIMULATION SURVIVED 
FOR 5 TIME PERIODS. 


THE BEST SURVIVAL TIME SO FAR IS 5 


DO YOU WANT A NEW RUN (Y OR N)? 

ENTER NUMBER OF CELL X TO 
START [LESS THAN 40) 

? 22 


WE HAVE 22 X CELLS 


ENTER NUMBER OF CELL Y TO 
START (LESS THAN 40) 

? 30 


TIME ELAPSED: 3 
13 CELL X 
23 CELL Y 
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TIME ELAPSED: 4 
14 CELL X 
21 CELL Y 


TIME ELAPSED: 5 
15 CELL X 
18 CELL Y 


TIME ELAPSED: 6 
19 CELL X 
15 CELL Y 


TIME ELAPSED: 7 
27 CELL X 
12 CELL Y 


TIME ELAPSED: 8 
41 CELL X 
7 CELL Y 


TIME ELAPSED: 9 
74 CELL X 
2 CELL Y 


TIME ELAPSED: 10 
32 CELL X 
1 CELL Y 

YOUR CELL CLASH SIMULATION SURVIVED 
FOR 10 TIME PERIODS. 


THE BEST SURVIVAL TIME SO FAR IS 10 


DO YOU WANT A NEW RUN [Y OR N)? 

OK 

The most crucial part of the program is the equations which do the 
work. These are in lines 330 and 340: 

330 CP=CP+((8*CP-CP*EP/3]*FD) 

340 EP=EP+(14*EP-EP*CP)*.01) 
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Modify parts of them, and see what effect this has on the progress 
of your simulation. You’ll probably be surprised to see how far- 
reaching are the effects of even the most apparently minor change. 
Here’s the listing: 

10 REM SIMULTANEOUS EQUATIONS 
20 C LS 

30 RANDOMIZE VAL(RI 6HT$(TIME$ t 2] ] 

40 H S = 0 
50 F D = R N D (0] 

60 PRINTsPRINT "DECAY FACTOR IS"FD 
70 60SUB 550 
80 CLS 

90 PRINTsPRINT 

100 PRINT "ENTER NUMBER OF CELL X TO 

START (LESS THAN 40]" 

110 INPUT CPsIF CP<1 OR CP>39 THEN 110 

120 PRINT;PRINT 

130 PRINT "WE HAVE"CP"X CELLS" 

140 PRINTsPRINT 

150 PRINT "ENTER NUMBER OF CELL Y TO 

START (LESS THAN 40] " 

160 INPUT EPsIF E P <1 OR EP>39 THEN 160 

170 CLSsPRINTsPRINT "PLEASE STAND BY..." 

1 80 GOSUB 550 s CLS 

1 90 D A = 1 

200 IF CP>EP/FD THEN CP=EP/FD 

210 PRINT »-" 

220 PRINT "TIME ELAPSED s"DA 
230 PRINT I NT(CP] "CELL X" 

240 PRINT I NT(E P] "CELL Y» 

250 REM *************************** 

260 REM MAJOR CYCLE 

270 GOSUB 550 
280 D A = D A +1 

2 90 PRINT "-» 

300 PRINT "TIME ELAPSED s 11 DA 
310 IF CP>EP/FD THEN CP=EP/FD 

320 REM EQUATIONS FOLLOW; MODIFY PARTS 
OF THEM TO SEE WHAT HAPPENS 
330 CP=CP+((8*CP-CP*EP/3]*FD) 
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340 EP = EP+( (4*EP-EP*CP)* .01 ] 

350 PRINT INT(CP] "CELL X" 

360 PRINT INT(EP)"CELL Y" 

370 IF E P < 2 OR CP<2 THEN 410 
380 GOSUB 550 
390 GOTO 280 

400 REM *************************** 

410 IF D A > H S THEN H S = D A 
420 PRINT SPRINT 

430 PRINT "YOUR CELL CLASH SIMULATION SU 
RVIVED " 

440 PRINT "FOR"DA"TIME PERIODS." 

450 PRINT "- 

_ii 

460 PRINT "THE BEST SURVIVAL TIME SO FAR 
I S " H S 

470 GOSUB 550 

480 PRINT "- 

__ii 

490 PRINT "DO YOU WANT A NEW RUN (Y OR N 

J ?" 

500 A $ = INK EY $ 

510 IF A(< >"Y" AND A « < >"N" THEN 500 
520 IF A $ ="Y" THEN CLSsGOTO 60 
530 PRINT "OK"sPR I NTsPRINTsEND 
540 REM *************************** 

550 FOR J=1 TO 2000:NEXT J 
560 RETURN 
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Chapter Six 

The Meaning of Life 


In the previous chapter, we looked at a program which simulated 
the action of two ‘competing’ life forms occupying a single space. 
In that simulation, the growth and decay of the cells were governed 
by simultaneous equations. 

In this chapter, we’ll look at two versions of one of the old 
simulation classics, John Conway’s Life. This simulation concerns 
the growth and development of a colony of cells living on a grid. 

Developed by Conway when he was at Gonville and Caius College, 
in Cambridge, England, Life produces some amazing effects, whose 
richness is not even hinted at by the rules under which the cells live, 
reproduce and die. To show this, we’ll look at a colony of cells 
which starts off forming a square. This particular colony dies off 
after these three ‘generations’: 


GENERATION 


GENERATION 2 


XXXXX 
X X 
X X 
X X 
XXXXX 


XXXXX 
X X 

X X 

X X 

XXXXX 


XXX 
XXXXX 
XX X XX 
XXX XXX 
XX X XX 
XXXXX 
XXX 


XXX 
XXXXX 
XX X XX 
XXX XXX 
XX X XX 
XXXXX 
XXX 


35 



GENERATION 3 


X 

X 

X 


X 

X 


X 

X 

X 


X 

X 


X XX 


X 


X X 

X X 
X 


X X 

X X 
X 


Another colony, which begins life as an ‘X’, evolves as follows (the 
program prints a ‘mirror image’ colony to the right of the original 
colony in all these sample runs): 

GENERATION 1 GENERATION 2 


XX XX 


X X 

X X 

XXX 

XXX 

X 

X 

X X 

X X 

X X 

X X 

XXX 

XXX 

XX XX 

GENERATION 3 

GENERATION 

4 


X 

X 

X 

X 

X X 

X X 

XXX 

XXX 

X X 

X X 

XX XX 

XX XX 

X X 

X X 

XXX 

XXX 

X 

X 

X 

X 
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GENERATION 


5 


GENERATION 6 


XXX 
X X 

X X 

X X 

XXX 


XXX 
X X 
X X 
X X 
XXX 


GENERATION 7 


X 

XXX 
XXX 
XXX XXX 
XXX 
XXX 
X 


X 

XXX 
XXX 
XXX XXX 
XXX 
XXX 
X 


GENERATION 8 



XXX 



XXX 


X 


X 

X 


X 

X 


X 

X 


X 

X 


X 

X 


X 


XXX 



XXX 



X X 

X X 

X X 

XXX XXX XXX XXX 

X X 

X X 

X X 


If we continue to run this simulation, each horizontal set of X’s 
flips to become a vertical set, and the vertical sets become 
horizontal. This pattern of three which alternates from horizontal 
to vertical is one of a number of patterns which regularly crop up in 
runs of the program. This particular pattern is called ‘traffic lights’. 


The Rules 

Conway’s rules are not very complicated, but give rise to the 
marvellous effects we’ve been looking at. They assume each cell has 
eight neighbours (and we keep the outermost ring of cells empty; 
these are checked, but not printed out). If a cell has two or three 
neighbours, it survives to the next generation. If a cell has four 
neighbours, it dies out in the next generation, due to overcrowding. 
If there are exactly three cells neighbouring an empty cell, a cell is 
born in that location in the next generation. 
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The rules are applied simultaneously across the whole grid. We do 
this by having a second grid, which records the changes as the first 
grid is scanned. The second grid is then copied into the first, before 
it is printed. 

This is the listing which produced the effects above. The DATA 
statements at the end can be, of course, changed to whatever initial 
colony you desire: 

10 REM CONWAY'S LIFE SIMULATION 
20 REM DEFINED INITIAL COLONY 
30 60SUB 46 0 :R EM INITIALIZE 

40 REM ************************* 

50 REM MAJOR CYCLE 
60 GENERATION=GENERATI0N+1 
70 G0SUB 2 9 0 :R E M PRINTOUT 
80 GOSUB 110:R EM EVOLVE 
90 GOTO 60 

100 REM ************************* 

110 REM EVOLVE 
120 FOR X = 2 TO 12 
130 FOR Y = 2 TO 12 
140 C = 0 

150 IF A$[X-1,Y-1)="X" THEN C=C+1 

160 IF A$[X-1,Y)="X" THEN C=C+1 

170 IF A 9(X-1 ,Y + 1 )="X" THEN C = C + 1 

180 IF A*(X,Y-1)="X" THEN C=C+1 

190 IF A$(X,Y+1)="X" THEN C=C+1 

200 IF A$(X+1,Y-1)="X" THEN C=C+1 

210 IF A$(X+1,Y)="X" THEN C=C+1 

220 IF A$(X+1,Y+1)="X" THEN C=C+1 

230 IF A$(X f Y)="X" AND C<>2 AND C<>3 THE 

N B $ ( X , Y ] = " " 

240 IF A$(X,Y)=" » AND C=3 THEN B$(X,Y)= 

11 X" 

250 NEXT Y 
260 NEXT X 
270 RETURN 

280 REM ************************* 

290 REM PRINTOUT 
300 CLS 
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310 PRINT 

3 2 0 PRINT TAB(4) ; 11 GENERATION "GENERATION 

330 PRINT 

340 FOR X = 2 TO 12 

350 FOR Y = 2 TO 12 

360 A$(X,Y)=B$(X,Y) 

370 PRINT A$(X,Y); 

380 NEXT Y 

390 FOR Y = 12 TO 2 STEP-1 
400 PRINT A $(X,Y) ; 

410 NEXT Y 
420 PRINT 
430 NEXT X 
440 RETURN 

450 REM ************************* 

460 REM INITIALIZATION 
470 CLS 

480 RANDOMIZE VAL(RI 6HT»[TIME$ , 2 ) ) 

490 DEFINT A-Z 

500 DIM A$(13,13) ,B$(13 ,13J 

510 PRINT:PRINT " PLEASE STAND BY..." 

520 FOR X = 1 TO 13 

530 PRINT 14-X ; 

540 FOR Y = 1 TO 13 

550 REM FILL ARRAY WITH BLANKS 
560 A•t X,Y J =" " 

570 B$(X,Y)=A$(X,YJ 

580 NEXT Y 
590 NEXT X 

600 READ D:IF D=99 THEN 630 

610 READ E:A$(D,E)="X":B$(D f E]="X" 

620 SOTO 600 
630 6ENERATI0 N = 0 
640 RETURN 

650 DATA 5,5,5,9,6,6,6,8 
660 DATA 7,7 

670 DATA 8,6,8 f 8,9,5,9,9 
700 DATA 99 
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Colonies at Random 

If you prefer to let your computer generate a starting colony at 
random, leaving you simply to admire its work, add the following 
lines: 

555 IF R N D(1 ) >,5 THEN A $ ( X P Y ) = " X " : G OT 0 5 
70 

595 GOTO 630 

The evolution of a randomly-generated colony is always 
fascinating to watch, as these sample runs indicate: 

GENERATION 1 

X X XXXXXXXXXX X X 
X XX XX XX X 

XXX XX XXX 

X XXXXXX X 

X XX X 

XX XX 

X XX XXXXXX XX X 

X XXX X X XXX X 
X XXXXXX X 

XXX XXX 

XXXXXX XX XXXXXX 

GENERATION 2 

XX XXXXXX XX 
XX X XX X XX 

XX XXX XX XXX XX 

X XX X 

XX 

XXX XX XXX 

XXXXX XXXXXX xxxxx 
XX XX XX XX 

XXXXXXXXXX 

X XX XX XX X 

X XXX XXX X 


40 



GENERATION 


3 


X XXXX X 

XX XX XX 

XX X X XX X X XX 

X XX X 
X XXXX X 

XX XX XX 

X XXXXXXXXXXXX X 

XX XX XX XX 

XX XXXXXX XX 

X XX XX XX X 
XX XX 


GENERATION 9 


XX 

XX 


XX 

X 

XX 


X X 

X X 

X XXXX X 
X XX X 
X XX X 
X X 

XX XX 


XX 

XX 


XX 

X 

XX 


GENERATION 12 


XX XX 

XX XX 

XXX XXX 

xxxxxxxxxx 

XX XX XX 
XXXXXX 
XXXX 
XXX XXX 

X X 
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GENERATION 24 


XX 

XX 


XXX 
X X 
XX X 
XX XX 
X X 
X 

XX 
XX XX 
X X 

XX 


XXX 
X X 
X XX 
XX XX 
X X 
X 

XX 

XX XX 
X X 

XX 


XX 

XX 


GENERATION 39 


XX 

X X XX 

XXX 

XX XXX X 


X 

XXX 


XXX 
X X 


XX 

XXX X 

XXX 

X XXX XX 


XXX 
X X 


X 

XXX 


XX 

xxxxxxxx 

XX 

X X 

XX XX XX 

X X 

X XX 

XX 

XX X 

X X 


X X 

XX 


XX 


GENERATION 51 


XXX X 
X X XX 
X X 
XXX 


X XXX 
XX X X 
X X 
XXX 
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GENERATION 62 


X 

X X 

XX XX 

X XX 


X 

X X 
XX XX 
XX X 
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Chapter Seven 
Robot Simulations 


In this section of the book, we will create programs which perform 
two simulations at once. The programs will firstly allow us to 
simulate a robot who will follow a series of commands entered by 
us before the program is run. Secondly, the programs emulate 
computer language interpreters, which allow the computer (and 
hence the robot) to understand the instructions we have given in a 
new ‘robot control language’ (RCL) developed especially for this 
book. 

Muse Software, of Baltimore, released a superb robot simulation 
program in mid-1983 under the name of Robotwar. This program 
allows you to pre-program a number of ‘robots’, before setting 
them loose on a VDU battlefield to fight it out for victory. 
Robotwar allows you to program the robots in a language which is 
essentially English, with a few BASIC commands (such as GOTO 
and GOSUB). 

Our programs, Robot Logo and Point-Duty Robot (which is derived 
from the first program), are much simpler than Robotwar, yet still 
produce satisfying, and surprisingly interesting results. 

We’ll look first at Robot Logo. To show you what it can do, and to 
give you an idea of what an RCL listing looks like, here’s a program 
which gets the robot to trace out my initials on the screen, leaving a 
trail as it goes: 
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GO 6,10 
FACE 90 
FORWARD 7 
GO 8,26 
FORWARD 5 
PR 

GO 6,16 
FACE 180 
FORWARD 6 
GO 6,26 
FORWARD 6 
GO 6,34 
FORWARD 6 
PRINTOUT 
* 


This is the result of running that program: 


XXXXXXX X X 

X XX 

X X X X X X 

X XX 

X XX 

X XX 


There are 12 commands in RCL, any of which can be included in a 
program abbreviated to its first two letters. The RCL program is 
written into the overall BASIC program, as a set of up to 20 data 
statements, terminated with a data statement which just contains 
an asterisk. These data lines are near the beginning of the program. 
The current line being processed appears at the top of the screen as 
the program is running, so you can see the relevant line, and its 
effect, as it occurs. 


The Language 

Here is the complete vocabulary of RCL: 

START (abbreviated to ST) - start again 

PRINTOUT (PR) - stop the robot action, clear the screen, and 
print out the current situation, before continuing with the program 
run 
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FORWARD (FO) - this is followed by a single number, and it tells 
the robot to move forward the number of ‘steps’ indicated by the 
number which follows the command 

BACK (BA) - the opposite, naturally enough, of FORWARD 

TURN (TU) - followed by a number, this command turns the robot 

through the specified number of degrees; it starts a run at zero 

degrees, designated as the top of the screen 

HOME (HO) - returns the robot to the center of the screen, facing 

upwards 

CLEAN (CL) - cleans the previous steps away (the action of this 
command, like the others, will become clear once you use it) 

GO - this is followed by two numbers, which are the coordinates 
to which the robot moves, without leaving a trail between its old 
position and the new one 

RANDOM (RA) - moves the robot to a randomly-chosen position 
on the screen; acts as a random GO 

REPEAT (RE) - followed by a number, this command allows you 
to cycle through a section of the program a specified number of 
times before continuing; this can produce some fascinating effects 
as you’ll see shortly 

END REPEAT (EN) - terminates the REPEAT cycle; all the 
commands in the RCL program which lie between REPEAT and 
END REPEAT will be cycled through the number of times 
specified 

FACE (FA) - followed by a number, this turns the robot to face an 
absolute angle, with zero degrees at the top of the screen (whereas 
TURN is relative to the current angle the robot is facing) 

The commands can be combined to produce many startling results. 
If you are at all familiar with Logo, you will recognise that several 
of the RCL commands are very similar to the turtle graphic 
commands in logo. 

Logo was developed under Seymour Papert, with Marvin Minsky, 
Harold Abelson and Andrew diSessa, at the Massachusetts 
Institute of Technology by the Artificial Intelligence Group. It was 
written so that its structure would be closer to the way human 
beings solve problems than being heavily influenced by how 
machines run programs. 

Of course, our RCL is pretty limited in comparison with Logo, 
although it can easily be extended to whatever level of complexity 
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you like. Studying the listing can show you how it is relatively easy 
to write a program which interprets another program written in a 
language which you have created. 

Despite its limitations, you can have a lot of fun with RCL as the 
following sample runs indicate. 



DIAMONDS 

RANDOM 
FACE 45 
REPEAT 4 
FORWARD 2 
TURN 90 
END REPEAT 
PRINTOUT 
START AGAIN 
* 
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And squares are created by this RCL listing: 


SQUARE 
GO 11,35 
REPEAT 4 
FORWARD 6 
TURN 90 
END REPEAT 

PRINTOUT 

* 


X X X X X 


X 

X 

X 

X 

X 

X X 


XXX 


X X 
X 
X 
X 
X 
X 

X X 


Descending triangles are easy (and note we’re using abbreviated 
commands in this RCL listing): 


X 

X 

X 

X 


X 

X 


DESCENDING 

TR-IANGLES 


X 

X 


GO 5,5 
RE 6 
FO 3 
TU 135 
FO 3 
TU 135 
FO 3 
FA 90 
FO 3 
FA 180 
FO 3 
FA 0 
PR 
EN 
* 


X 

X X 
X X 
X X 
X X X X 

X X 
X X 
X X X X 

X X 
X X 
XXX 
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And from the next RCL program we can get our robot to walk 
down stairs: 


X X X X 
X 
X 

X X X X 
X 
X 

X X 

STAIRS 

GO 1 , 1 
RE 6 
FACE 90 
FORWARD 3 
FACE 180 
FORWARD 3 
END REPEAT 
PRINTOUT 
* 


X 

X 

X 

X X X X 
X 
X 

X X X X 
X 
X 

XXX 


If you’re feeling very creative, you can also get the robot to trace 
out pictures, like my initials earlier, or this ‘side view of a table’: 


SIDE VIEW OF TABLE 

GO 20,50 
FACE 315 
FORWARD 9 
FACE 90 
FORWARD 10 
FACE 225 
FORWARD 10 
PRINTOUT 
« 


xxxxxxxxxxx 

X X 

X X 

X X 

X X 

X 

X X 

X X 

X X 

X 
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Writing a Program 

As I said earlier, the RCL program is held in a series of DATA 
statements near the beginning of the listing: 

100 REM ROBOT LOGO 

110 GOSUB 1730sREM INITIALIZE 

120 GOTO 490 

130 REM **************************** 

140 REM 
150 REM 
160 REM 
170 REM 
180 REM 
190 REM 
200 REM 
210 REM 
220 REM 
230 REM 
240 REM 
250 REM 
260 REM 
270 REM 
280 REM 
290 REM 
300 REM 
310 REM 
32 0 DATA "*" 

330 REM **************************** 

Here’s a listing to create random octagons. We can learn a lot 
about RCL by examining it: 

OCTAGON 

RANDOM 
REPEAT 8 
FORWARD 2 
TURN 45 
END REPEAT 
PRINTOUT 
START AGAIN 
* 
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It begins with RANDOM which moves the robot to a randomly- 
chosen position on your screen. The dimensions of the screen are 
included within the program (see lines 1770 and 1780 in the listing 
in the next chapter), so it will work easily on your system no matter 
what its size. 


Once the robot is in place, the computer comes to the line REPEAT 
8. This tells it, naturally enough, that the next section of the 
program (down to the REPEAT) is to be run through eight times. 
The robot moves FORWARD 2, then TURNs through 45 degrees. 
Once it has done this eight times, it has traced out an octagon which 
PRINTOUT puts on the screen for you to see: 


X 
X 

XXX 
X 

X 

X 
X 
X 

X X 

XXX 


X 

X 

X X 
X 


XXX 
X X 

X X X X X 

X XX X 

X X 

X XX 

XXX X 

X X 

XXX 


XXX 

X X X X X 

K XXX 

K XX 

X XX 

X XX 

X X X X X 

XXX 


XXX 


X X 

X X 

XX X 

XX X 

XX X 


XXX 


The final command, START AGAIN, sends action back to the 
first line of the program, so select a new robot position at random. 
RCL automatically rejects values which are off the screen, so the 
program will not crash if you try to walk off the edge of the robot 
world. It will simply draw the required material, ‘off the screen’, as 
it were, and then continue at the correct space when it returns to the 
screen. 
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You can see, from the examples we’ve looked at, that the robot can 
be made to do a great deal. The biggest limitation is in the TURN 
and FACE commands. It can only work, in its present form, in 
increments of 45 degrees, and will change (see lines 1040 and 1620) 
any angle into the closest multiple of 45 before it sends the robot 
out along that path. This restriction was necessary in order to 
ensure that, despite the very rough resolution of the grid upon 
which the robot walks, a reasonable picture was still drawn by the 
robot’s trail. 

The full Robot Logo listing is in the next chapter. 
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Chapter Eight 

The Robot Logo Listing 


You’re sure to have a lot of fun using this listing in its present form 
to get the robot to follow programs which you have devised. Simply 
place them, in the form of DATA “REPEAT 8”, and the like, in 
lines 140 through to 310. Line 320, where you can just see an 
asterisk in the DATA statement, tells the program interpreter that 
it has come to the end of your listing. I got my program listings to 
the printer by running the program, then entering and running the 
following directly: 

FOR Z=1 TO 20:LPRINT A$(Z):NEXT Z 

In its present form the program can cope with RCL programs 
which are up to 20 lines long. If you want it to accept longer 
programs, simply change the 20 in lines 530 and 1820 to the number 
of commands you want to include. Remember that you need to 
allow for a command slot to hold the asterisk (end of program flag) 
line. 


Here, then, is the listing so you can run your own robot: 


100 REM ROBOT LOGO 

110 GOSUB 1730:REM INITIALIZE 

120 GOTO 490 

130 REM **************************** 

140 REM 

150 REM 

160 REM 

170 REM 

180 REM 

190 REM 

200 REM 

210 REM 
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220 REM 
230 REM 
240 REM 
250 REM 
260 REM 
270 REM 
280 REM 
290 REM 
300 REM 
310 REM 
320 DATA " * " 

330 REM **************************** 
340 REM I NT UX,AX 

350 UX=INT[UX+.5):AX=INT[AX+.5) 

360 RETURN 

370 REM **************************** 

380 REM PRINT OUT 

390 C L S:R E M OR LOCATE 1,1 OR SIMILAR 

400 PRINT "S T E P"P S N " > ";A$(PSN] SPRINT 

410 FOR J=1 TO DEPTH 

420 FOR K = 1 TO BREADTH 

430 PRINT Z * [ J , K ) } 

440 NEXT K 
450 PRINT 
460 NEXT J 
470 RETURN 

480 REM **************************** 
490 REM READ PROGRAM 
500 COUNT=COUNT+1 
510 READ A $(C 0 U N T] 

520 IF A$(COUNT)="*" THEN 550 

5 30 IF COUNT <20 THEN 500 

540 REM **************************** 

550 REM EXECUTE PROGRAM 

560 PS N = 0 :R EM PROGRAM STEP NUMBER 

570 PSN=PSN+1 

5 8 0 IF P S N = 21 THEN 5 8 0 : REM END 

590 FLAG=0 

600 M$=A$(PSN) 

610 IF M $ ="*" THEN 610:REM END 
620 N$ = LEFT$[M$,2 J 
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6 30 

I F 

N $ = 

"ST" 

THEN 

5 6 0 :R EM START 

AGAIN 

6 40 

UT 

I F 

N $ = 

"PR" 

THEN 

GOSUB 380:REM 

PRINTO 

6 50 

I F 

N $ = 

" F 0 " 

THEN 

F L A G = 1 


6 60 

I F 

N $ = 

"BA” 

THEN 

F LA G = 2 


6 70 

I F 

N $ = 

" T U " 

THEN 

FLAG=3 


6 8 0 

I F 

N $ = 

"HO” 

THEN 

F LAG = 4 


6 90 

I F 

N $ = 

"CL" 

THEN 

F L A G = 5 


700 

I F 

N $ = 

"GO" 

THEN 

F L A G = 6 


71 0 

I F 

N $ = 

" R A " 

THEN 

F L A G = 7 


720 

I F 

N $ = 

"RE" 

THEN 

F L A G = 8 


7 30 

I F 

N $ = 

"EN" 

THEN 

F L A G = 9 


7 40 

I F 

N $ = 

"FA" 

THEN 

F L A G = 1 0 


7 50 

ON 

FLAG GOSUB 780,940,1000,1160,1220 

v 1 260 v 

1400 

,1460 

,1530 

,1580 



760 GOTO 570 

770 REM **************************** 
780 REM FORWARD 

790 M$=MID$(M$ f 4) 

800 IF ASC(M$)=87 THEN M$ = M I D$(M$ , 6 ] 
810 F $ ="F" 

820 NUM=VAL(M$] 

830 FOR E=1 TO NUM 

840 IF UX<1 OR UX >D EPTH THEN 880 
850 IF AX <1 OR AX>BREADTH THEN 880 
8 60 Z $(UX,AX]=T $ 

870 REM DELETE THE '♦2' AT END OF NEXT 
TWO LINES IF BETTER ON YOUR SYSTEM 
880 IF F $ ="F" THEN UX=UX + UP:AX=AX+AC*2 
890 IF F $ ="B" THEN UX=UX-UP:AX = AX-AC*2 
900 GOSUB 340 
910 NEXT E 
920 RETURN 

930 REM **************************** 
940 REM BACK 

950 M$=MID$(M$ y 4) 

96 0 IF ASC(M$)=75 THEN M$ = M I D$(M$ f 3 ) 
970 F$="B" 

980 GOTO 820 

990 REM **************************** 

1 0 0 0 REM TURN 
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1010 

M $ = 

M I D $ ( M $ , 4 ) 


10 20 

I F 

ASC(M$)=78 THEN M$= 

M I D $ ( M $ , 3 ) 

10 30 

NUM 

= V A L ( M $ ] 


1 040 

Y=INT( (NUM + 17 . 5)/45 ) 


1050 

I F 

Y = 0 OR Y = 8 THEN RETURN 

1060 

FOR 

J=1 TO Y 


1070 

I F 

U P = -1 AND A C = 0 THEN 

A C = 1 : GOTO 11 

30 




1080 

n 

I F 

U P = 0 AND A C = 1 THEN 

UP = 1 : GOTO 113 

u 

1090 

I F 

UP = 1 AND A C = 0 THEN 

o 

1- 

□ 

CD 

*— 

II 

CJ 

< 

3 0 




1100 

I F 

UP = 0 AND A C = -1 THEN 

UP = -1 :G OT 0 1 

1 30 




1110 

I F 

U P = -1 AND A C =-1 OR 

UP = 1 AND A C=1 


THEN A C = 0 :GOTO 1130 

1120 IF UP=-1 AND A C = 1 OR UP=1 AND AC = -1 
THEN UP=0 
1130 NEXT J 
1140 RETURN 

1150 REM **************************** 
1160 REM HOME 

1170 AX=INT[ (BREADTH+.5]/2 ] 

1180 UX=I NT( (DEPTH+. 5 ]/2 ) 

1190 UP=-1sAC=0sREM FACES UP 
1200 RETURN 

1210 REM **************************** 
1220 REM CLEAN 

1230 GOSUB 1870 
1240 RETURN 

1250 REM **************************** 
1260 REM GOX,Y 

1270 P=0 

1280 P=P+1 

1290 IF MID$(M$ f P, 1)=" i " THEN 1320 
1 300 IF P < L E N(M $) THEN 1280 
1310 RETURN:REM ERROR 
1320 UX=VAL(MID$(M$,4,P-1)) 

1330 AX=VAL(RIGHT$[M$, LEN(M$)-P] ) 

1340 GOSUB 340 

1 350 IF UX<1 OR UX >D E PT H THEN 1380 
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1 360 IF A C < 1 OR AOBREADTH THEN 1380 
1370 Z$(UX,AX)=R$ 

1380 RETURN 

1390 REM **************************** 
1400 REM RANDOM 

1410 AX=INT[RND(1)*BREADTH) 

1420 UX=INT(RND(1)*DEPTH) 

1430 Z $[UX,AX)=R $ 

1440 RETURN 

1450 REM **************************** 
1460 REM REPEAT 

1470 M $ = MID $(M $,4) 

1 480 IF ASC(M$)=69 THEN M$ = MID*(M$,5 ) 
1490 REC0UNT=VAL(M$) 

1500 MARKER=PSN 
1510 RETURN 

1520 REM **************************** 

1530 REM END REPEAT 

1540 REC0UNT=REC0UNT-1 

1550 IF REC0UNT>0 THEN PSN=MARKER 

1560 RETURN 

1570 REM **************************** 
1580 REM FACE 

1590 M $ = MID $(M $,4) 

1 600 IF ASC(M$)=69 THEN M* = M I D$(M$ , 3 ) 
1610 NUM=VAL(M$] 

1620 Y=INT((NUM+17.5)/45)*45 


1630 

I F 

Y = 0 OR Y = 3 6 0 THEN UP = -1:AC = 0 

1 640 

I F 

in 

ii 

> 

THEN 

UP=-1 :A C = 1 

1650 

I F 

-< 

ii 

CO 

o 

THEN 

U P = 0 :A C = 1 

1660 

I F 

Y = 1 35 

THEN 

U P = 1 :A C = 1 

1670 

I F 

-< 

ii 

GO 

O 

THEN 

U P = 1 s A C = 0 

1680 

I F 

Y= 2 2 5 

THEN 

w— 

II 

CJ 

< 

w— 

II 

Q. 

=> 

16 90 

I F 

Y = 2 7 0 

THEN 

UP = 0 s AC = -1 

1700 

I F 

-< 

11 

GO 

CJ1 

THEN 

V 

1 

II 

O 

< 

■■ 

w— 

1 

II 

Q. 

=> 

1710 

RETURN 



1720 

REM 

* * * * 

* * * * * 

******************* 


1730 REM INITIALIZE 
1740 CLS 

1750 RANDOMIZE VAL(RIGHT$lTIME$,2JJ 
1760 REM ADJUST NEXT TWO LINES FOR 
BEST RESULTS ON YOUR SYSTEM 
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1770 BREADTH=80:REM CHARACTERS ACROSS 
1 780 D EPTH = 2 4:R EM CHARACTERS DOWN 
1790 BREADTH=BREADTH-1 
1800 DEPTH=DEPTH-3 

1810 UP=-1:AC=0:REM STARTS FACING UP 

1820 DIM A$(20]:REM FOR ROBOT PROGRAM 
1830 DIM Z$(DEPTH,BREADTH]:REM DISPLAY 
1840 T*="X":REM PUT SYMBOL HERE YOU 
WANT TO USE FOR ROBOT'S TRAIL 
1 850 A X = 0:U X= 0 

1860 REM FILL ARRAY WITH SPACES 
1870 FOR J=1 TO DEPTH 
1880 FOR K=1 TO BREADTH 
1890 Z $[J F K) = " " 

1900 NEXT K 
1910 NEXT J 
1920 RETURN 
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Chapter Nine 

The Point-Duty Robot 


Now while the Robot Logo is interesting as far as it goes, I felt, once 
I had used it for a while, that it really didn’t go far enough. The 
program was developed, like the others in this book, so they would 
run on just about any computer furnished with BASIC, and 
therefore it used an array to hold the robot’s movement and 
current position. PRINTOUT triggered this array. 

The Point-Duty Robot program makes use of the PSET command 
on my IBM PC to draw dots on a much finer resolution than the 
first program (320 by 200, rather than 80 by 24). Using a machine- 
specific command, of course, means that if a version of the 
program for your computer is not included in this book, you may 
have a little more trouble than usual in getting the program to run. 
However, the results are superb, and the effort involved in getting 
the program to run is sure to be repaid. If you don’t have PSET on 
your computer to plot a point on the screen, check your computer’s 
manual for SET, POINT, PLOT or a similar command. The 
Amstrad listings follow the IBM PC version. Spectrum 
BBC Micro and Commodore versions are in the appendices. 

Here are the Point-Duty Robot listing, which is based on the Robot 
Logo program in the previous chapter. It has not been renumbered, 
so you should find it easy to modify the first listing into a second 
one. The commands are the same, except that PRINTOUT is no 
longer supported. It is not needed, as the program prints out 
automatically as it is running. (Note that line 1735 in the listing 
which follows is an IBM-specific one, to move the computer into 
graphics mode. You may need to drop or convert this line.) 

100 REM POINT-DUTY ROBOT 

110 GOSUB 1 7 30 :R EM INITIALIZE 

ISO GOTO 490 
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140 REM 
150 REM 
160 REM 
170 REM 
18 0 REM 
190 REM 
200 REM 
210 REM 
220 REM 
230 REM 
240 REM 
250 REM 
260 REM 
270 REM 
280 REM 
290 REM 
300 REM 
310 REM 
320 DATA 

330 REM **************************** 

340 REM I NT UX,AX 

350 UX = INT(UX +.51 :AX = INT(AX+ . 5) 

360 RETURN 

480 REM **************************** 

490 REM READ PROGRAM 
500 C0UNT=C0UNT+1 
510 READ A$(COUNT) 

520 IF A$(COUNT)=»*" THEN 550 

530 IF COUNT <20 THEN 500 

540 REM **************************** 

550 REM EXECUTE PROGRAM 

560 PSN=0:REM PROGRAM STEP NUMBER 

570 PSN=PSN+1 

580 IF P S N = 21 THEN 580 :REM END 
590 F LA G = 0 
600 M$=A$(PSN) 

610 IF M $ ="*" THEN 610:REM END 
620 N$=LEFT$(M$,2) 

630 IF N $ ="S T" THEN 560 :REM START AGAIN 
650 IF N $ = "F 0" THEN F LA G = 1 
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660 

IF 

N $ = " 

BA" 

THEN 

F L A G = 2 

670 

I F 

N $ = " 

TU" 

THEN 

F L A G = 3 

680 

I F 

N $ = " 

HO" 

THEN 

F LA G = 4 

7 00 

I F 

N$ = " 

GO" 

THEN 

F L A G = 5 

71 0 

IF 

N $ = " 

RA" 

THEN 

F L A G = 6 

7 20 

I F 

N $ = " 

RE" 

THEN 

F L A G =7 

730 

I F 

N$ = " 

EN" 

THEN 

F L A G = 8 

7 40 

I F 

N$ = " 

FA" 

THEN 

F L A G = 9 

750 

ON 

FLAG 

GOSUB 780,940,1000,1160,1260 


,1400,1460,1530,1580 
760 GOTO 570 

770 REH **************************** 

780 REM FORWARD 

790 M$=HID»[M$,4) 

800 IF ASC(M$]=87 THEN M$ = MID$[M$ , 6 ) 

810 F $ = "F" 

820 NUM=VAL(M$) 

830 FOR E=1 TO NUM 

840 IF UX<1 OR UX>DEPTH THEN 880 
850 IF AX <1 OR AX >BREADTH THEN 880 
860 PRESET (AX,UX):PSET (AX,UX) 

880 IF F $ = " F " THEN UX = UX +UP:AX = AX + AC 
890 IF F $ = "B" THEN UX = UX-UPsAX = AX-AC 
900 GOSUB 340 
910 NEXT E 
920 RETURN 

930 REM **************************** 

940 REM BACK 

950 M $ = MID $(M$,4) 

960 IF ASC(Mt]=75 THEN M« = MID$(M$ , 3) 

970 F$="B" 

980 GOTO 820 

990 REM **************************** 
1000 REM TURN 

1010 M$=MID$(M$,4) 

1 020 IF ASC(M«)=78 THEN M$ = MID$(M$ , 3) 
1030 NUM=VAL(M$] 

1 040 Y = INT[ [NUM + 1 1 . 25 )/22.5 ) 

1 050 IF Y = 0 OR Y = 16 THEN RETURN 
1060 FOR J=1 TO Y 

1 065 IF U P = -2 AND AC = 0 OR UP = 2 AND AC = 2 
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THEN 

A C = 

1:GOTO 

1130 




1070 

I F 

U P = - 2 

AND 

V 

II 

U 

< 

THEN A C = 2:GOTO 11 

30 

1 075 

IF 

U P = - 2 

AND 

cu 

II 

CJ 

< 

OR 

UP=0 AND 

A C = - 2 

THEN 

UP 

=-1:GOTO 

1130 




1080 

IF 

U P = -1 

AND 

A C = 2 

OR 

UP=1 AND 

A C = - 2 


THEN UP=0:GOTO 1130 


1085 

IF 

UP = 0 

AND 

A C = 2 

OR UP 

= 2 

AND AC =-2 

THEN 

UP 

= 1 s GOTO 1130 




1090 

n 

IF 

UP = 1 

AND 

A C = 2 

THEN 

U P = 

2:GOTO 113 

u 

1095 

n 

IF 

U P = 2 

AND 

«- 

li 

o 

< 

THEN 

A C = 

0 s GOTO 113 

u 

1100 

IF 

U P = 2 

AND 

o 

II 

u 

< 

THEN 

A C = 

-1 s GOTO 11 

30 








1105 

IF 

UP = 2 

AND 

> 

o 

II 

1 

-Ik 

THEN 

AC 

=-2:GOTO 1 


1 30 


1110 

IF 

U P = -1 

AND 

A C = 

-2 

THEN 

UP = -2 

: GOTO 

1130 

1115 

IF 

U P = - 2 

AND 

A C = 

-2 

THEN 

A C = -1 

: GOTO 

1130 

1120 

IF 

UP = -2 

AND 

A C = 

-1 

THEN 

a 

II 

CJ 

< 


1130 

NEXT J 







1 1 40 

RETURN 







1150 

REM 

************************* 

* * * 


1160 REM HOME 

1170 AX=INT[[BREADTH+.5J/2] 

1180 UX=INT([DEPTH+.5J/2] 

1190 UP = -2 s AC = 0:R EM FACES UP 
1200 RETURN 

1220 REM CLEAN 

1230 GOSUB 1870 
1240 RETURN 

1250 REM ft*************************** 
1260 REM GO X,Y 

1 270 P = 0 
1280 P=P+1 

1290 IF MID$(M$ f P f 1 ]=■',” THEN 1320 
1300 IF P<LEN(M$] THEN 1280 
1310 RETURNsREM ERROR 
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1 320 UX=VAL[MID$(M$,4,P-1 ) ] 

1330 AX=VAL(RIGHT$(M$,LEN(M$)-P)) 

1340 60SUB 340 

1 350 IF UX<1 OR UX>D EPTH THEN 1380 
1 360 IF A C < 1 OR AOBREADTH THEN 1380 
1370 PSET (AX,UX) 

1380 RETURN 

1390 REM **************************** 
1400 REM RANDOM 

1410 AX=INT[RND(1]*BREADTH) 

1 420 UX = INT(RND (1 )*0EPTH ] 

1 430 P S ET(AX t UX] 

1440 RETURN 

1450 REM **************************** 
1460 REM REPEAT 

1 470 M $ = MID $(M$,4) 

1480 IF ASC(M$)=69 THEN M$ = MID«(M$ , 5 ) 
1490 REC0UNT=VAL(M$) 

1500 MARKER=PSN 
1510 RETURN 

1 520 REM ****** * ******* * ************ * 

1530 REM END REPEAT 

1540 REC0UNT=REC0UNT-1 

1550 IF REC0UNT>0 THEN PSN=MARKER 

1560 RETURN 

1570 REM **************************** 
1580 REM FACE 

1590 M$=MID«(M$,4) 

1600 IF ASC(M$]=69 THEN M$=MID$(M*,3) 
1610 N U M = V A L(M $ ) 

1620 Y = IN Tl INUM + 11 .25)/22.5]*22.5 
1 630 IF Y = 0 OR Y = 3 6 0 THEN UP = -2:AC = 0 
1 635 IF Y = 2 2.5 THEN UP = -2:AC = 1 
1 640 IF Y = 45 THEN UP=-2:AC = 2 
1 645 IF Y = 6 7.5 THEN UP = -1:AC = 2 
1 650 IF Y = 9 0 THEN UP = 0:AC = 2 
1 655 IF Y = 112.5 THEN UP = 1:AC = 2 
1 660 IF Y = 13 5 THEN UP = 2:AC = 2 
1 665 IF Y = 15 7 .5 THEN UP = 2:AC = 1 
1 670 IF Y = 18 0 THEN UP = 2:AC = 0 
1 675 IF Y = 2 0 2 .5 THEN UP = 2:AC = -1 


65 



1 680 IF Y = 2 2 5 THEN UP = 2:AC = -2 
1 685 IF Y = 2 47.5 THEN UP = 1 :AC=-2 
1 6 90 IF Y = 2 7 0 THEN UP = 0:AC = -2 
1 695 IF Y = 2 9 2.5 THEN UP = -1:AC = -2 
1 700 IF Y = 315 THEN UP = -2:AC = -2 
1 705 IF Y = 3 3 7 . 5 THEN UP = -2:AC = -1 
1710 RETURN 

1 720 REM **************************** 
1730 REM INITIALIZE 
1 735 SCREEN 1 :R EM THIS IS AN 

IBM-SPECIFIC GRAPHICS COMMAND 
1740 CLS 

1750 RANDOMIZE VAL(RIGHT$[TIME$,2]) 
1760 REM ADJUST NEXT TWO LINES FOR 
BEST RESULTS ON YOUR SYSTEM 
1 770 BREADTH = 320 : REM CHARACTERS ACROSS 
1780 DEPTH=200:REM CHARACTERS DOWN 
1790 BREADTH=BREADTH-1 
1800 DEPTH=DEPTH-3 

1810 UP=-2:AC=0:REM STARTS FACING UP 

1820 DIM A$(20):REM FOR ROBOT PROGRAM 
1920 RETURN 
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Amstrad 


100 REM POINT-DUTY ROBOT 
105 REM AMSTRAD VERSION 
110 GOSUB 1730:REM INITIALIZE 
120 GOTO 490 

130 REM ************************* 

140 REM 
150 REM 
160 REM 
170 REM 
180 REM 
190 REM 
200 REM 
210 REM 
220 REM 
230 REM 
240 REM 
250 REM 
260 REM 
270 REM 
280 REM 
290 REM 
300 REM 
310 REM 
320 DATA "*" 

330 REM ************************** 

340 REM INT UX,AX 

350 UX=INT(UX+0.5):AX=INT(AX+0.5) 

360 RETURN 

370 REM ************************** 

490 REM READ PROGRAM 
500 COUNT=COUNT +1 

510 READ A*(COUNT):A$(COUNT)=UPPER$ < A$(C 
OUNT)) 

520 IF A$(COUNT)=”*" THEN 550 

530 IF COUNT<20 THEN 500 

540 REM *************************** 

550 REM EXECUTE PROGRAM 

560 PSN=0:REM PROGRAM STEP NUMBER 

570 PSN=PSN+1 
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580 

IF 

PSN=21 

THEN 580:REM 

END 

590 

FLAG=0 




600 

M*= 

=A$(PSN> 




610 

IF 

M*="*" 

THEN 610:REM 

END 

620 

N$= 

=LEFT$<M$,2) 



630 

IF 

N$="ST" 

THEN 

560:REM START AGAIN 

650 

IF 

N$="FO" 

THEN 

FLAG=1 


660 

IF 

N$="BA" 

THEN 

FLAG=2 


670 

IF 

N$="TU" 

THEN 

FLAG=3 


680 

IF 

N$="HO" 

THEN 

FLAG=4 


700 

IF 

N$="GO" 

THEN 

FLAG=5 


710 

IF 

N$=”RA" 

THEN 

FLAG=6 


720 

IF 

N$="RE" 

THEN 

FLAG=7 


730 

IF 

N*= M EN" 

THEN 

FLAG=8 


740 

IF 

N$ =,, FA" 

THEN 

FLAG=9 


750 

ON 

FLAG GOSUB 780,940, 

1000,1160,1260 


,1400,1460,1530,1580 
760 GOTO 570 

770 REM ************************* 

780 REM FORWARD 

790 M$=MID$<M$,4> 

800 IF ASC(M$)=B7 THEN M$=MID$<M$,6) 
810 F$="F" 

820 NUM=VAL(M$) 

830 FOR E=1 TO NUM 

840 IF UX<1 OR UX>DEPTH THEN 880 

850 IF AX<1 OR AX>BREADTH THEN 880 

860 PLOT AX,UX,0:PLOT AX,UX,1 

880 IF F$="F" THEN UX=UX+UPsAX=AX+AC 

890 IF F$="B" THEN UX=UX-UP:AX=AX-AC 

900 GOSUB 340 

910 NEXT E 

920 RETURN 

930 REM ************************* 

940 REM BACK 

950 M$=MID$(M$,4) 

960 IF ASC(M*>=75 THEN M$=MID*<M*,3> 
970 F$="B" 

980 GOTO 820 

990 REM ************************** 
1000 REM TURN 
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1010 M$=MID$(M$,4) 

1020 IF ASC(M$)=78 THEN M$=MID*<M$,3) 
1030 NUM=VAL(M$) 

1040 Y=INT<(NUM+11.25)/22.5) 

1050 IF Y=0 OR Y=16 THEN RETURN 
1060 FOR J=1 TO Y 

1065 IF UP=—2 AND AC=0 OR UP=2 AND AC=2 
THEN AC=1:GOTO 1130 

1070 IF UP=—2 AND AC=1 THEN AC=2:G0T0 11 
30 

1075 IF UP=—2 AND AC=2 OR UP=0 AND AC=-2 
THEN UP=—1:GOTO 1130 
1080 IF UP=-1 AND AC=2 OR UP=1 AND AC=-2 
THEN UP=0:GOTO 1130 

1085 IF UP=0 AND AC=2 OR UP=2 AND AC=-2 
THEN UP=1:GOTO 1130 

1090 IF UP=1 AND AC=2 THEN UP=2:GOTO 113 
0 

1095 IF UP=2 AND AC=1 THEN AC=0:GOTO 113 
0 

1100 IF UP=2 AND AC=0 THEN AC=-lsGOTO 11 
30 

1105 IF UP=2 AND AC=-1 THEN AC=-2:G0T0 1 
130 

1110 IF UP=-1 AND AC=—2 THEN UP=-2:G0T0 
1130 

1115 IF UP=—2 AND AC=—2 THEN AC=-l:GOTO 
1130 

1120 IF UP=—2 AND AC=—1 THEN AC=0 
1130 NEXT J 
1140 RETURN 

1150 REM ***************************** 

1160 REM HOME 

1170 AX=INT(<BREADTH+0.5>/2) 

1180 UX=INT(DEPTH+0.5)/2) 

1190 UP=—2 s AC=0:REM FACES UP 
1200 RETURN 

1210 REM ***************************** 
1220 REM CLEAN 

1230 GOSUB 1870 
1240 RETURN 
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1250 REM ***************************** 
1260 REM GO X,Y 

1270 P=0 
1280 P=P+1 

1290 IF MID^(M# T P,1)="THEN 1320 
1300 IF P<LEN(M$) THEN 1280 
1310 RETURN:REM ERROR 
1320 UX=VAL<MID$<M$,4,P-1>) 

1330 AX=VAL<RIGHT$<M$,LEN<M*)-P)) 

1340 GOSUB 340 

1350 IF UX<1 OR UX >DEPTH THEN 1380 
1360 IF AC< 1 OR AOBREADTH THEN 1380 
1370 PLOT AX,UX 
1380 RETURN 

1390 REM ***************************** 
1400 REM RANDOM 

1410 AX=INT(RND*BREADTH> 

1420 UX=INT(RND*DEPTH) 

1430 PLOT AX,UX 
1440 RETURN 

1450 REM **************************** 
1460 REM REPEAT 

1470 M*=MID$(M*,4) 

1480 IF ASC<M$>=69 THEN M$=MID$<M$,5) 
1490 RECOUNT=VAL(M$) 

1500 MARKER=PSN 
1510 RETURN 

1520 REM **************************** 

1530 REM END REPEAT 

1540 RECOUNT=RECQUNT—1 

1550 IF RECOUNT>0 THEN PSN=MARKER 

1560 RETURN 

1570 REM **************************** 
1580 REM FACE 

1590 M$=MID$<M*,4> 

1600 F ASC<M$)=69 THEN M$=MID$ (M$,3> 
1610 NUM=VAL(M$) 

1620 Y=INT((NUM+11.25)/22.5)*22.5 
1630 IF Y=0 OR Y=360 THEN UP=-2:AC=0 
1635 IF Y=22.5 THEN UP=-2:AC=1 
1640 IF Y=45 THEN UP=-2:AC=2 
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1645 IF Y=67.5 THEN UP=-1:AC=2 
1650 IF Y=90 THEN UP=0:AC=2 
1655 IF Y=112.5 THEN UP=1:AC=2 
1660 IF Y=135 THEN UP=2sAC=2 
1665 IF Y=157.5 THEN UP=2:AC=1 
1670 IF Y=180 THEN UP=2:AC=0 
1675 IF Y=202.5 THEN UP=2:AC=-1 
1680 IF Y=225 THEN UP=2:AC=-2 
1685 IF Y=247.5 THEN UP=l:AC=-2 
1690 IF Y=270 THEN UP=0:AC=-2 
1695 IF Y=292.5 THEN UP=-l:AC=-2 
1700 IF Y=315 THEN UP=-2:AC=-2 
1705 IF Y=337.5 THEN UP=-2:AC=-1 
1710 RETURN 

1720 REM ************************ 

1730 REM INITIALIZE 

1740 MODE 1:INK 0,0:INK 1,26:BORDER 0 
1750 RANDOMIZE TIME 
1770 BREADTH=319 
1780 DEPTH=197 

1810 UP=-2:AC=0:REM STARTS FACING UP 
1820 DIM A*(20):REM FOR ROBOT PROGRAM 
1920 RETURN 

There are many enjoyable programs you can write for your little 
robot to follow. You can see from the FACE and TURN sections, 
the program supports angle changes of 17.5 degrees, rather than 
the coarser 45 degrees which was all the Robot Logo could cope 
with. 

When you have Point-Duty Robot up and running, you might like 
to try the following programs. 

The first one is GLASS MAGNOLIA: 

60 100,170 
REPEAT 5 
FORWARD 13 
TURN 72 
END REPEAT 
START AGAIN 
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Adding a single, additional line to that program produces 
CHURCH WINDOW: 

GO 100,170 
REPEAT 4 
FORWARD 13 
TURN 90 
END REPEAT 
TURN 22.5 
START AGAIN 


HAMPTON COURT ROSE is an effective demonstration of the 
little robot in action: 

GO 100,170 
REPEAT 2 
FORWARD 3 
TURN 22.5 
FORWARD 6 
TURN 22.5 
FORWARD 9 
TURN 22.5 
FORWARD 12 

RCL continues to amaze with SPIRAL NEBULA: 

GO 100,170 
FORWARD 2 
TURN 22.5 
FORWARD 5 
TURN 22.5 
FORWARD 8 
TURN 22.5 
FORWARD 11 
TURN 22.5 
FORWARD 15 
TURN 22.5 
FORWARD 7 
START AGAIN 


TURN 22.5 
FORWARD 12 
TURN 22.5 
FORWARD 7 
TURN 90 
END REPEAT 
START AGAIN 
* 
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CRAZY CRITTER decorates your screen with something 
surprising: 

GO 100,170 
REPEAT 2 
FORWARD 10 
TURN 90 
FORWARD 12 
END REPEAT 
TURN 22.5 
START AGAIN 
* 

And this is SIGNALMAN FREUD (who worked for the Vienna 
Railroad Company): 

GO 100,170 
TURN 135 
FORWARD 25 
REPEAT 4 
FORWARD 10 
TURN 90 
END REPEAT 
START AGAIN 
* 

In our next program, BUBBLES, we use two REPEAT loops. Note 
these are not, and cannot be, nested, as RCL does not support 
nested loops: 

RANDOM 
REPEAT 16 
FORWARD 2 
TURN 25 
END REPEAT 
RANDOM 
REPEAT 16 
FORWARD 1 
TURN 25 
END REPEAT 
START AGAIN 
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Removing the second RANDOM line from BUBBLES turns the 
program into one I have called THE EYES ARE WATCHING 
YOU: 

RAND OM 
REPEAT 16 
FORWARD 2 
TURN 25 
END REPEAT 
REPEAT 16 
FORWARD 1 
TURN 25 
END REPEAT 
START AGAIN 


From that we move to HAND ME DOWN MY DANCING 
CANE: 

RAND OM 
FORWARD 15 
TURN 315 
BACK 5 
TURN 22.5 
START AGAIN 


And, finally, ONE-WAY STREET: 

RAND OM 
FORWARD 15 
TURN 315 
BACK 6 
FORWARD 6 
TURN 270 
FORWARD 6 
START AGAIN 
* 

I’d be very interested in seeing any programs you write in RCL, for 
either of the robot programs. You can get in touch with me via 
Interface Publications. 
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Chapter Ten 
Simulating Intelligence 


Artificial Intelligence (AI) is one of the ‘hot’ areas of computer 
science at the moment. An enormous amount of energy is being 
spent to get computers to behave in ways which appear intelligent. 
AI research has looked into such things as game playing. It has 
produced some highly creditable results as the current generation 
of chess machines bears witness. ‘Expert systems’, in which the 
computer uses the encoded expertise of human specialists to reach 
decisions and give advice, is a particularly fruitful area of AI 
development at present. Expert systems have been developed in a 
wide range of disciplines. Systems now in use can do such things as 
diagnose certain classes of diseases, assist in chemical synthesis, 
and help in the search for mineral deposits. 

In this chapter, we’ll concentrate on the game-playing side of 
artificial intelligence. The simulation we’ll use plays a very good 
game of Connect Four, in which two players take it in turns to place 
pieces in the lowest available position in a column on a board, 
trying to get four of their pieces to form a line in any direction. 

Game playing was one of the earliest areas of AI investigation 
which achieved significant success. Theorem proving programs, as 
well, performed well. The scope of AI research has broadened over 
the last 20 years and now covers such topics as perception (vision 
and speech), the understanding of human (‘natural’) languages, 
and the development of expert systems, mentioned briefly before. 

It is interesting to note that computer programs which appear to 
display intelligence often work in ways quite different from the 
methods human beings bring to bear on similar problems. For 
example, chess masters do not play by systematically analysing 
tens of thousands of possible moves, ranking them hierarchically, 
and choosing the move which achieves the highest level. Instead, 
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a human player appears to make his or her decisions almost 
intuitively. Human experts, although they may make use of some 
or all of the raw data of an expert system working in the same field, 
do not generally reach their conclusions by consciously working 
through every piece of information which could possibly be 
relevant before deciding which of the potential outcomes has the 
highest probability of being correct. 

Similarly, in our artificial intelligence simulation program, the 
computer works out its moves in a manner which is quite alien to 
our own thinking. Despite this, it plays extremely well, and will 
prove a difficult (almost impossible) opponent to defeat. It works 
by assigning a value to each possible move, and increments this 
value as it scans around the proposed move and in so doing finds 
another one of its pieces which could lead it towards victory. It then 
selects the move which has the highest total. 

When you’re making your moves, you’re far more likely to just 
look at the board, note if there is any danger of the computer 
completing a row of four, and if so attempting to block it, or select 
a move which ‘feels’ as though it could help lead you to victory. 

The lesson is clear. When writing your own artificial intelligence 
programs, look to the end result you want to achieve, rather than 
seek to emulate your own thinking processes in the situation. 

Let’s see our Connect Four program in action. You enter your move 
as a number between one and eight, and the computer 
automatically places your piece (a small letter ‘o’) at the lowest 
available position in the row designated by the number you have 
entered. The computer pieces are the letter ‘M’: 


12345678 

YOUR MOVE. . . 
? 4 


..Mo.... 

12345678 


YOUR MOVE . . . 
? 6 
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. .M oM o. . 

12345678 


YOUR MOVE... 
? 5 





















■ ■■■■■■a 



■ aaaaaaa 



aaaaaaaa 



_MM . . 

•■.Ho.■, 

...Moo.. 

a ■ a ^ O O ■ a 

•iHoMo■■ 

. . MoMo . . 

■ | M O H O O a 

12345678 

12345678 

12345678 


YOUR MOVE . . . 

YOUR HOVE... 

YOUR MOVE 

? 6 

? 7 

? 7 


■ ■■•■Mbs 

. . . .MM . . 

. . . M o o o . 

■ ■ M o M o o ■ 

12345678 

I HAVE WON 

The victory here is along the diagonal from the top of column six 
down to the bottom of column three. 

Enter this program when you want to see an example of artificial 
intelligence in action: 

10 REM CONNECT FOUR 
20 REM A. W. PEARSON 
30 CLS 
40 PRINT 
50 PRINT 

60 PRINT "CONNECT FOUR" 

70 PRINT 

80 PRINT "ENTER YOUR MOVE AS A NUMBER BE 
TWEEN" 

90 PRINT "1 AND 8, ENTER 0 FOR A NEW GAM 

E . . . " 

100 FOR F = 1 TO 1 000 SNEXT F 
110 DIM A$(10,10] ,B(10,2] 

120 F LA G = 0 
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130 REM CHANGE NEXT LINE FOR YOUR OWN 
CHOICE OF SYMBOLS (C$-COMPUTERJ 
140 C*="M":H$="o";REM M FOR MACHINE! 

150 FOR F = 1 TO 8 
160 B[F,1)=6 
170 NEXT F 
180 FOR F = 1 TO 6 
190 FOR G = 1 TO 8 
200 A $ [ F , G ] = " . " 

210 NEXT G 
220 NEXT F 

240 REM ACCEPT HUMAN MOVE 
250 GOSUB 430 

260 PRINTsPRINT "YOUR MOVE..." 

270 INPUT A 

280 IF A=0 THEN RUN 

290 IF A <1 OR A > 8 THEN 270 

300 L = 0 

310 IF A$(L + 1 , A ) <>" . " OR L = 6 THEN 340 

320 L = L + 1 

330 GOTO 310 

340 IF L=0 THEN 270 

350 A((L,A)=H$ 

360 B(A,1 )=BI A,1 )-1 
370 GOSUB 430 
380 GOSUB 560 
390 GOSUB 430 
400 GOTO 260 

410 REM ************************* 

420 REM PRINT BOARD 
430 CLS 

440 FOR F = 1 TO 6 
450 FOR G = 1 TO 8 
46 0 PRINT A $[F ( G] ; 

470 NEXT G 
480 PRINT 
490 NEXT F 

500 PRINT "12345678" 

510 PRINT 

520 IF F LA G = 1 THEN PRINT "I HAVE WON":EN 
D 
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530 RETURN 

540 REM ************************* 

550 REM COMPUTER MOVES 
560 PRINT "MY MOVE..." 

570 M V = 0 

580 FOR F =1 TO 8 

590 B(F,2 J =0 

600 NEXT F 

610 FOR F = 1 TO 8 

620 FOR X=-1 TO 1 

630 FOR Y = — 1 TO 1 

640 IF B ( F , 1 )= 0 THEN 680 

650 IF A$[B[F f 1)+X,F+Y)="» OR A$(B(F,1)+ 
X,F+Y)="." THEN 680 

660 IF A$(B(F,1)+X,F+Y)=H$ THEN GOSUB 81 
0 

670 IF A $ ( B ( F , 1)+X,F+Y)=C$ THEN GOSUB 91 
0 

680 NEXT Y 
690 NEXT X 
700 NEXT F 
710 P=0 

720 FOR F = 1 TO 8 

730 IF B(F r 2) > P THEN P = B(F,2)sN = F 

740 NEXT F 

750 A$(B(N,1 ] ,N)= C $ 

760 B[N,11=B(N,1)-1 

770 N = 0 
780 P = 0 
790 RETURN 

800 REM ************************* 

810 M V = 2 
820 Ml=MV 

830 IF A$(B(F,1 J + (X*2 ) , F+(Y*2) )=H$ THEN 
M V = M V + 10 

840 IF A$(B(F , 1 J-X,F-Y)=H$ THEN MV = MV + 20 
850 IF MVOMI+IO THEN 870 

860 IF A$(B(F,1 J + (X * 3| ,F + (Y*3)J=H$ THEN 
M V = M V + 1000 

870 B(F,2)=BIF,2)+MV 

880 Ml=0 
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890 RETURN 

900 REH ************************* 

910 M V = 2 
920 M1= M V 

930 IF A$(B(F,1 ) + (X*2j ,F+(Y*2] )=C$ THEN 
HV=MV+9 

940 IF A$(B(F,1)-X f F-Y)=C$ THEN MV=MV+20 
950 IF MVOM1+9 THEN 970 

960 IF A$(B(F,1 ) + (X*3) ,F+(Y*3J )=C$ THEN 
MV = MV + 2000 :F LA G = 1 
970 B(F,2)=B(F,2J+MV 

980 RETURN 

If you’d like to know more about artificial intelligence and expert 
systems, you might be interested in other books I have written on 
the subject: 

Exploring Artificial Intelligence on your Microcomputer - (Interface 
Publications Ltd., UK, 1984) (Machine - specific versions available 
for Spectrum/Spectrum+, QL and BBC Micro) 

Exploring Artificial Intelligence on your Commodore 64 - (Interface 
Publications Ltd., UK, 1985; Bantam Books, New York, 1985) 

Exploring Expert Systems on your Microcomputer - (Interface 
Publications Ltd., UK, 1985) 
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Chapter Eleven 

The Quevedo Chess Machine 


In 1890, the first recorded attempt to produce a real machine which 
would play chess was made in Spain. The scientist Torres y 
Quevedo produced a little device which would play the end game of 
a king and rook against a king, taking the side with the rook. The 
machine was always able to force mate. 

After reading about Quevedo’s machine in David Levy’s 
fascinating book Chess and Computers (Computer Science Press, 
Inc., Potomac, Maryland; 1976), I decided to try and write a 
program which would emulate the machine’s behaviour. The 
machine could move in one of six possible ways, and this program 
tells you which of the six moves it has used in each case. 

The moves include simply moving the rook away horizontally if the 
black king is in the same zone as the rook; and moving the rook one 
square horizontally, if the black king is not in the same zone as the 
rook, with the rook one square away, when the vertical distance 
between the two kings is two squares, and the number of squares 
they are apart horizontally is odd. 

You’ll find the computer makes a rapid assessment of the situation. 
Here it is in action. You are the single king (the $ sign), the 
computer’s king is the “K” and its rook is the “R”: 
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I USED MOVE 1 


ABCDEFGH 


8 . 8 

7 . 7 

6 . 6 

5 ■R•i • ■ 5 

4 . 4 

3 $. 3 

2 . .. 2 

1 . 1 


ABCDEFGM 

>> MOVE TO (LETTER y NO.]? A2 


I USED MOVE 1 

ABCDEFGH 


8 . 8 

7 . 7 

6 . 6 

5 R.i.K.i. 5 

4 . 4 

3 . 3 

2 $. 2 

1 . 1 


ABCDEFGH 

>> MOVE TO (LETTER, NO.]? B2 
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I USED MOVE 1 


ABCDEFGH 


8 . 8 

7 . 7 

6 . 6 

5 «R. ■ K , i i 5 

4 . 4 

3 . 3 

2 .$. 2 

1 . 1 


ABCDEFGH 

>> MOVE TO (LETTER v NO.)? C2 


I USED MOVE 1 


ABCDEFGH 

8 . 8 

7 .. 7 

6 . 6 

5 ■iR|K ,, , 5 

4 . 4 

3 . 3 

2 ■■$■•■■■ 2 

1 . 1 

ABCDEFGH 


>> MOVE TO [LETTER v NO.)? D2 
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I USED MOVE 1 


ABCDEFGH 


8 

7 

6 

5 

4 

3 

2 

1 


. 8 

........ 7 

. 6 

...RK ,. . 5 

. 4 

. 3 

■■■$■•■■ 2 
. 1 


ABCDEFGH 


>> MOVE TO (LETTER , NO.)? E2 


I USED MOVE 2 


ABCDEFGH 


8 

7 

6 

5 

4 

3 

2 

1 





8 

7 

6 

5 

4 

3 

2 

1 


ABCDEFGH 


>> MOVE TO (LETTER, NO.)? F2 


84 














I USED MOVE 1 


ABCDEFGH 


8 . 8 

6 .. 6 

5 ■■■■K aaa 5 
4 ■■■•Rasa 4 

3 aaaaaaaa 3 
2 aaaaa$aa 2 

1 . 1 


ABCDEFGH 


>> MOVE TO (LETTER y NO.)? FI 


I USED MOVE 1 


ABCDEFGH 

8 aaaaaaaa 
7 aaaaaaaa 
6 aaaaaaaa 

5 aaaaaaaa 

4 aaaaaRaa 

2 aaaaaaaa 
1 aaaaaaaa 

ABCDEFGH 


>> MOVE TO (LETTER y NO.)? Q 


THANKS FOR THE GAME 


8 

7 

6 

5 

4 

3 

2 

1 
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Here’s the listing so you can take on Senor Quevedo’s machine for 
yourself: 

10 REM QUEVEDO CHESS MACHINE 
20 GOSUB 1510:REM INITIALISE 
30 GOTO 60 

40 GOSUB 1320:REM PRINT BOARD 
50 GOSUB 110:REM COMPUTER MOVES 
60 GOSUB 1320 

70 GOSUB 1120:REM ACCEPT HUMAN MOVE 
80 GOTO 40 
90 END 

100 REM »»*«««•*«•«*«» 

110 REM COMPUTER MOVES 
120 IF QUIT=1 THEN 1080 
130 W1=WK 

140 REM ************** 

150 REM MOVE ONE 

160 M0VE=1 

170 KM=INT(BK/10) 

180 RM=INT(R/10) 

190 IF ABS(KM-RM)>3 THEN 330 
200 A(R)=46 

210 X=INT(BK/10):Y=INT(R/10) 

220 IF X>Y THEN 270 

230 IF A(R-10)046 THEN 270 

240 IF A(R-19)=BK OR A(R-21)=BK OR A(R-2 

0)=BK THEN 270 

250 IF A(R-11)=BK OR A(R-9)=BK THEN 270 
260 R=R-10:GOTO 300 

270 IF A( R+1 0) 046 THEN A(R)=R:GOTO 330 

280 IF A(R+19) = BK OR A(R+21) = BK OR A(R + 2 

0) = BK THEN A(R)=R:GOTO 330 

290 R = R+10 

300 A(R)=ASC( n R n ) 

310 RETURN 

320 REM ************** 

330 REM MOVE TWO 
340 M0VE=2 
350 KM=BK-10*KM 
360 RM= R-10*RM 
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370 IF ABS(KM-RM)<2 THEN 480 
380 A(R)=46 

390 IF R>11 THEN IF (A(R-12)=BK OR A(R-2 
)= BK OR A(R+8)=BK) THEN A(R)=R:GOTO 480 
400 IF R>11 THEN IF (A(R-1)=BK OR A(R-11 
) = BK OR A(R+9) = BK) THEN A(R) = R:GOTO 480 
410 Y=BK-10»INT(BK/10) 

420 Z=R-10*INT(R/10) 

430 IF (Z=1 OR Y>Z) AND A(R+1)=46 THEN R 

=R+1:GOTO 450 

440 R= R-1 

450 A(R)= ASC("R") 

460 RETURN 

470 REM «»#«#««««««•»• 

480 REM MOVE THREE 
490 MOVE=3 

500 WM=WK-10*INT(WK/10) 

510 BM= BK-10*INT(BK/10) 

520 IF ABS(WM-BM)<3 THEN 600 

530 IF A( WK-1 ) 0 46 OR A(WK-18)=BK OR A(W 

K-2) = BK OR A(WK+8) = BK THEN 610 

540 IF A(WK-11) = BK OR A(WK+9)=BK OR A(WK 

-22) = BK THEN 610 

550 A(WK)=46 

560 WK = WK-1 

570 A(WK)=ASC("K n ) 

580 RETURN 

590 REM *«***•«••««••» 

600 REM MOVES FOUR, FIVE AND SIX 
610 Z=ABS(INT(BK/10)-INT(WK/10)) 

620 IF Z=0 THEN 950 

630 IF 2*INT(Z/2)=Z THEN 790 

640 REM •••***«••••«» 

650 REM MOVE FOUR 
660 M0VE=4 
670 A(R)=46 

680 IF A(R-10)046 THEN 720 

690 IF A(R-9) = BK OR A(R-11)=BK THEN 720 

700 IF A(R-19)=BK OR A(R-21)=BK OR A(R-2 

0) = BK THEN 720 

710 R=R-10:GOTO 760 
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720 IF A( R+1 0 ) 046 THEN A(R)=R:G0T0 790 

730 IF A(R+19)=BK OR A(R+21)=BK OR A(R+2 

0) = BK THEN A(R) = ASC("R"):GOTO 790 

740 IF A(R+11) = BK OR A(R+9)=BK THEN A(R) 

=ASC("R"):GOTO 790 

750 R = R+10 

760 A(R)=ASC("R") 

770 RETURN 

780 REM »»«•»««*•**«•» 

790 REM MOVE FIVE 

800 MOVE = 5 

810 J=INT(BK/10) 

820 K = BK-10*J 
830 L=INT(WK/10) 

840 M=WK-10*L 

850 Z=10:IF J<L THEN Z=-10 

860 X=1:IF K<M THEN X=-1 

870 A(WK)=46 

880 W1= WK 

890 WK=WK+Z+X 

900 G=ABS(WK-BK) 

910 IF G=1 OR G=9 OR G=10 OR G=11 THEN W 
K=W1:A(WK)=75:GOTO 950 
920 A(WK)=ASC("K") 

930 RETURN 

940 REM »»*»•»»*•»«»»« 

950 REM MOVE SIX 
960 M0VE=6 
970 A(R)=46 

980 IF R>11 THEN IF A(R-12)=BK OR A(R-2) 

= BK OR A(R+8)=BK OR A(R-1)<>46 THEN 1070 

990 IF R>11 THEN IF (A(R-1)=BK OR A(R-11 

)= BK OR A(R+9)=BK) THEN 1070 
1000 Y=BK-10*INT(BK/10) 

1010 Z=R-10*INT(R/10) 

1020 IF (Z=1 OR Y>Z) AND A(R+1)=46 THEN 

R = R+1:GOTO 1040 

1030 R= R-1 

1040 A(R) = ASC("R") 

1050 RETURN 
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1060 REM ************** 

1070 GOSUB 1320 
1080 PRINTsPRINT 

1090 PRINT "I CONCEDE TO THE MASTER" 

1100 END 

1110 REM ***************** 

1120 REM ACCEPT HUMAN MOVE 
1130 REM ENTER »Q» TO QUIT 
1140 M0VE=0 

1150 PRINT ">> MOVE TO (LETTER, NO.)"; 
1160 INPUT G$ 

1170 IF G$="Q" THEN 1280 
1180 IF LEN( G$ ) 02 THEN 1 1 60 
1190 Z=ASC(G$) 

1200 IF Z<65 OR Z>72 THEN 1160 
1210 X = VAL(RIGHT$(G$,1 ) ) 

1220 IF X<1 OR X>8 THEN 1160 

1230 A(BK)=46 

1240 BK=10*(Z-64)+X 

1250 IF A(BK)=ASC("R") THEN QUIT=1 

1260 A(BK) = ASC("$") 

1270 RETURN 
1280 PRINTiPRINT 

1290 PRINT "THANKS FOR THE GAME" 

1300 END 

1310 REM »*»•»•««•»» 

1320 REM PRINT BOARD 
1330 CLS 

1340 PRINT:PRINT 

1350 IF MOVE>0 THEN PRINT "I USED MOVE"M 
OVE 

1360 IF MOVE=0 THEN PRINT 

1370 PRINTjPRINT 

1380 PRINT TAB(11);"ABCDEFGH" 

1390 FOR J=8 TO 1 STEP -1 
1400 PRINT TAB(8);J; 

1410 FOR K=10 TO 80 STEP 10 
1420 PRINT CHR$(A(J+K)); 

1430 NEXT K 
1440 PRINT J 
1450 NEXT J 
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1460 PRINT 

1470 PRINT TAB(11);"ABCDEFGH" 

1480 PRINTjPRINT 
1490 RETURN 

1500 REM »•»»»»»««*»••» 

1510 REM INITIALISATION 
1520 CLS 

1530 RANDOMIZE VAL(RIGHT*(TIME$,2)) 
1540 MOVE=0 
1550 QUIT=0 
1560 DIM A(130) 

1570 FOR J=10 TO 80 STEP 10 

1580 FOR K=1 TO 8 

1590 A(J+K)=46:REM ASCII OF 

1600 NEXT K 

1610 NEXT J 

1620 REM ** PLACE PIECES «» 

1630 REM BLACK KING - HUMAN 

1640 BK=INT(RND(1)«3)+1 

1650 BK=10*BK+BK+INT(RND( 1 )«5) 

1660 A(BK)=ASC("$") 

1670 REM WHITE KING - COMPUTER 

1680 WK=INT(RND(1)*4)+4 

1690 WK=10*WK+WK+INT(RND( 1 ) *2) 

1700 IF WK=BK THEN 1680 
1710 A(WK) = ASC("K") 

1720 REM WHITE ROOK - COMPUTER 
1730 R=INT(RND(1)«4)+4 
1740 R=10*R+R+INT(RND(1) *2) 

1750 IF R=WK OR R=BK THEN 1730 
1760 IF ABS(R-BK)<12 THEN 1730 
1770 A(R) = ASC( w R n ) 

1780 RETURN 
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Chapter Twelve 
Into the Political Arena 


As we discussed earlier, computer programs can be used to 
simulate any process where the links between the elements of the 
process can be expressed as one or more mathematical 
relationships. This political simulation, Washington D.C., shows 
this very clearly, with the mathematical relationships governing a 
grossly simplified version of the American economy. 

You are the hapless occupant of the Oval Office, and - as you’ll 
soon see - the economy is somewhat out of kilter. To retain the 
support of the people (and the presidency) you have to try and keep 
the whole thing together. You need to do your best to improve the 
standard of living, keep inflation and unemployment down, 
stimulate private investment and generally maintain an acceptable 
growth in the economy, all at same time. You’ll soon discover a 
president’s lot is not necessarily a happy one. 

The simulation begins with a report to you on the state of the 
nation: 

PRESIDENT HARTNELLS 

YOUR ADMINISTRATION HAS BEEN IN 
POWER FOR .25 YEARS 


STATE OF THE NATION 


POPULATI ON 300081 9 
NO. UNEMPLOYED 300000 9 % 

CURRENT WAGES $ 100 INFLATION 5 % 

GOVT. EXPENDITURE LAST QTR. $M 118 
UNEMPLOYMENT COST $M 0 
INCOME FROM TAXES $M 0 
BUDGET SURPLUS[+)/DEFICIT(-) $M 0 
GROSS DOMESTIC PRODUCT $M 440 


PUBLIC INVESTMENT 0 Q 1 $M 236 
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You start each run with a population of around 3,000,000 and an 
unemployment rate of about 10%. You are then asked to make 
some snap judgements on ‘government spending’, ‘cost of wages’ 
and on your administration’s immigration policy: 

0K f PRESIDENT HARTNELL... 

ENTER GOVERNMENT SPENDING $M? 102 

ENTER COST OF WAGES $M? 41 

IS YOUR ADMINISTRATION IN FAVOR OF 
IMMIGRATION THIS QUARTER (Y/N)? 

OK ... N 

At the end of my second quarter in office, I found that while I had 
somehow kept inflation and unemployment under control, I was 
suddenly faced with a budget deficit of over $69 million! Public 
investment (and therefore, I hoped, public confidence) was on the 
increase however, up from $236 million at the end of the first 
quarter to more than $257 million at this point. I decide to increase 
spending slightly: 

PRESIDENT HARTNELL: 

YOUR ADMINISTRATION HAS BEEN IN 
POWER FOR .5 YEARS 


STATE OF THE NATION 


P0PULATION 3001638 

NO. UNEMPLOYED 287879 9 % 

CURRENT WAGES $ 41 INFLATION 9 56 

GOVT. EXPENDITURE LAST QTR. $M 102 

UNEMPLOYMENT COST $M 11.8 

INCOME FROM TAXES $M 44.4 

BUDGET SURPLUSl + 1/DEFI ClT( - ) $M-69.4 

GROSS DOMESTIC PRODUCT $M 449.2 


PUBLIC INVESTMENT 0 Q 2 $M 275.7 


OK, PRESIDENT HARTNELL... 

ENTER GOVERNMENT SPENDING $M? 107 
ENTER COST OF WAGES $M? 43 
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I also decide to let a few of the world’s tired and hungry masses into 
the land of milk and budget deficits: 


IS YOUR ADMINISTRATION IN FAVOR OF 
IMMIGRATION THIS QUARTER (Y/N)? 

OK. . .Y 

HOW MANY IMMIGRANTS WILL YOU ALLOW 
INTO THE US? 

? 100 0 

At the end of my first year, the deficit has grown to £216 million, 
and standard of living has increased by 12%: 

YOUR ADMINISTRATION HAS BEEN IN 
POWER FOR 1 YEARS 


STATE OF THE NATION 


POPULATION 3004277 

NO. UNEMPLOYED 272309 9 * 

CiURRENT WAGES $ 46 INFLATION 9 % 

GOVT. EXPENDITURE LAST QTR. $M 111 
UNEMPLOYMENT COST $M 12.5 
INCOME FROM TAXES $M 50.2 

BUDGET SURPLUS( + )/DEFI ClT(-) SM-216.7 

GROSS DOMESTIC PRODUCT $M 486.2 
CHANGE IN LIVING STANDARD 12 % 


PUBLIC INVESTMENT 0 Q 4 $M 364.4 


OK, PRESIDENT HARTNELL... 

ENTER GOVERNMENT SPENDING $M? 120 
ENTER COST OF WAGES $M? 65 
IS YOUR ADMINISTRATION IN FAVOR OF 
IMMIGRATION THIS QUARTER (Y/Nl? 

OK ... N 

I stumble on, narrowly avoiding crises each time I turn my head. 
Then, things start getting really hairy towards the end of my second 
year in office: 
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PRESIDENT HARTNELL: 

YOUR ADMINISTRATION HAS BEEN IN 
POWER FOR 1.75 YEARS 


STATE OF THE NATION 


POPULATION 3008238 

NO. UNEMPLOYED 377324 12 % 

CURRENT WAGES $ 66 INFLATION 12 % 

GOVT. EXPENDITURE LAST QTR. $M 125 
UNEMPLOYMENT COST $M 24.9 
INCOME FROM TAXES $M 69.4 
BUDGET SURPLUS(+]/DEFICIT(-] $M-436.8 
GROSS DOMESTIC PRODUCT $M 866 
CHANGE IN LIVING STANDARD 13 % 


PUBLIC INVESTMENT 1 Q 3 $M 243.2 


OK v PRESIDENT HARTNELL... 

ENTER GOVERNMENT SPENDING $M? 126 

ENTER COST OF WAGES $M? 67 

The outcome is inevitable. My time is up: 

PRESIDENT HARTNELL, YOUR 
ADMINISTRATION'S POOR ECONOMIC 
PERFORMANCE HAS LED TO AN UNACCEPTABLE 
RISE IN UNEMPLOYMENT 

AMONG OTHER THINGS... 


THE LACK OF CONFIDENCE IN YOUR 
ADMINISTRATION IS SO BAD THERE ARE 
CALLS FOR YOU TO RESIGN...YOU STEP 
ASIDE TO ALLOW THE VICE-PRESIDENT TO 
OCCUPY THE OVAL OFFICE 


YOU WERE PRESIDENT FOR 2.25 YEARS 
DURING YOUR TERM OF OFFICE, THE 
POPULATION ROSE BY 9059 
THE UNEMPLOYMENT RATE BECAME 17 % 

AND THE INFLATION RATE BECAME 17.4 % 
STANDARD OF LIVING CHANGED BY 17 % 
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AND THE BUDGET SURPLUS/DEFICIT 
WAS $ M-5 9 7 .5 

This is a program which you may well enjoy modifying. Change, 
for example, the income you get from taxes, to alter the simulation 
in a radical way. You can also fiddle with the thresholds at which 
the public start waving their fists. 

Line 50 governs the increase in population from quarter to quarter. 
A steeper increase here will make it harder to keep the lid on 
unemployment. 

I’ve been pretty generous with my use of REM statements in this 
program, so you should find it relatively easy to track down the 
variables you wish to modify. Here are the major ones, as listed in 
the initialization section of the program: 

1150 REM *************************** 

1160 REM INITIALIZATION 
1170 CLS 

1180 RANDOMIZE VAL(RIGHT$(TIME$ , 2) ) 

11 90 M L = 1 000*1 00 0 
1200 P=3*ML:REM POPULATION 
1210 U = P/10 : R EM UNEMPLOYMENT 
1220 IV=236:REM INVESTMENT 
1 230 6E = 11B : R EM GOVERNMENT EXPENDITURE 
1 240 G U = 0 : R EM COST OF UNEMPLOYMENT 
1 250 GI= 0:R E M INCOME FROM TAXES 
1260 WN=100:REM NEW WAGES 
1270 WO=100:REM OLD WAGES 
1 280 IP = 5:R EM INFLATION PERCENT 
1290 GDP=440:REM GROSS DOMESTIC PRODUCT 
1300 AGDP=440:REM BASE YEAR GDP 
1310 RGDP=440:REM REAL GDP 
1320 CN=354:REM ECONOMIC CONSTANT 
(USED THROUGHOUT SIMULATION) 

1330 Z=1:GAME=0:FLAG=0 
1 340 Y = 0:R EM YEAR 

1350 PRINT "ENTER YOUR LAST NAME" 

1 360 INPUT A $ 

1370 RETURN 
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The part of the program which does all the calculating is fairly easy 
to unravel, once you know the principal variables: 

490 REM *************************** 

500 REM CALCULATIONS 
510 C N = C N +(CN*IP/1 00 ) 

520 U = P * (G E + I V)/(C N * 10 J+P*(IP/1 000) 

530 GU=U*WN/ML:REM UNEMPLOYMENT COST 
540 GI = ( ( (P-U)*WN* .4)/ML) :REM INCOME 

FROM TAXES 

550 BD=BD + GI-GU-GE : REM BUDGET DEFICIT 
560 AGDP = AGDP*(1 + (I P/1 00 ) ) 

570 GDP=GE+IV+((P-U]*WN/ML) 

580 RGDP=GDP*440/AGDP 

590 IP = C (GE + IV)/CN*.1 + (WN/W0)/100)*100 
600 IV=(CN*67)/(IP*IP) 

610 W 0 = W N 

6 20 Z = Z +1 :IF Z > 4 THEN Z = 1:Y = Y + 1 
630 RETURN 

640 REM *************************** 

650 REM CHECK BUDGET DEFICIT 
660 IF BD >-1 000 THEN RETURN 
670 GAM E = 1 

6 80 F L A G = 1 
690 RETURN 

700 REM *************************** 

710 REM CHECK STANDARD OF LIVING 
720 IF Y < . 7 5 THEN RETURN 

730 IF I NT( (2* ( (RGDP/AGDP) *1 00 )-1 00 )/3 ) > 

-15 THEN RETURN 

740 GAM E = 1 

750 F L A G = 2 

760 RETURN 

770 REM *************************** 

780 REM CHECK INFLATION RATE 

7 90 IF IP <1 5 THEN RETURN 
800 G A M E = 1 

810 F LAG = 3 
820 RETURN 

830 REM *************************** 

840 REM CHECK UNEMPLOYMENT 
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850 IF I NT(U*100/P) <15 THEN RETURN 
8 6 0 GA M E = 1 
870 F L A G = 4 
880 RETURN 

890 REM *************************** 

Here is the complete listing of the Washington D.C. program: 

10 REM WASHINGTON D.C. 

SO GOSUB 116 0 : R E M INITIALIZE 
30 REM *************************** 

40 REM MAJOR CYCLE 

50 P=INT[P+[P*273/ML]1 

60 GOSUB 16 0:R E M PRINTOUT 

70 GOSUB 510 : R EM CALCULATE 

80 REM NOW CHECK END GAME 

90 GOSUB 710:R E M STANDARD OF LIVING 

100 GOSUB 7 8 0 ! R E M INFLATION RATE 

110 GOSUB 8 4 0 :R E M UNEMPLOYMENT 

120 IF G A M E = 1 THEN CLS:GOTO 890 

130 GOTO 50 

140 REM *************************** 

150 REM PRINTOUT 
160 CLS 

170 PRINT "PRESIDENT ";A $ ; " ! " 

180 PRINT "YOUR ADMINISTRATION HAS BEEN 
IN POWER FOR"Y+Z/4"YEARS" 

190 PRINT "- 

_II 

200 PRINT "-STATE OF THE NATION- 

_M 

210 PRINT "- 

__ii 

220 PRINT "POPULATION"P 

230 PRINT "NO. UNEMPLOYED"I NT(U1 " "INT( 
1 00*U/P ) "X" 

240 PRINT "CURRENT WAGES $"W0" INFLATION 
" I NT[IP 1 "X " 

250 PRINT "GOVT. EXPENDITURE LAST QTR. $ 
M " G E 
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260 PRINT "UNEMPLOYMENT COST $M"INT(10*G 
U )/1 0 

270 PRINT "INCOME FROM TAXES $M"INT(GI*1 
0)/10 

280 PRINT "BUDGET SURPLUS(+)/DEFICIT[-] 
$M"INT[BD*10)/10 

290 PRINT "GROSS DOMESTIC PRODUCT $M"INT 
[GDP*101/10 

300 IF Y+Z/4>.5 THEN PRINT "CHANGE IN LI 
VING STANDARD"INT( ( 2 * ( (RGDP/AGDP) *10 0 J —1 
00)/3]"*" 

310 PRINT "- 

_n 

320 PRINT "PUBLIC INVESTMENT"Y"Q»Z"$M"IN 
T ( I V*10 1/1 0 

330 PRINT "- 

_H 

340 PRINT "OK, PRESIDENT " } A $}"... " 

350 INPUT "ENTER GOVERNMENT SPENDING $M» 
; GE 

360 INPUT "ENTER COST OF WAGES $M" ;WN 
370 PRINT "IS YOUR ADMINISTRATION IN FAV 
OR OF" 

380 PRINT "IMMIGRATION THIS QUARTER (Y/N 
1 ? " 

390 X$=INKEY$ 

400 IF X $ < >"Y" AND X $ < >"N" THEN 390 
410 PRINT TAB(20) ; " OK . . . " ; X $ 

420 FOR H = 1 TO 1 000 :NEXT H 

430 IF X $ < >"Y " THEN RETURN 

440 PRINT "HOW MANY IMMIGRANTS WILL YOU 

ALLOW INTO THE US?" 

450 INPUT M 

460 IF M < 0 THEN 450 

470 P = P + M 

480 RETURN 

490 REM *************************** 

500 REM CALCULATIONS 
510 CN=CN+[CN*IP/100] 

520 U=P*[GE+IV)/(CN*10]+P*(IP/1000) 

530 GU=U*WN/ML:REM UNEMPLOYMENT COST 
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540 GI = ( ( (P-U]*WN* . 4)/ML) sREM INCOME 

FROM TAXES 

550 BD=BD+GI-GU-GE:REM BUDGET DEFICIT 

5 60 AGDP = AGDP*(1 + (I P/1 00 ) ] 

570 GDP=GE+IV+((P-U]*WN/ML] 

580 RGDP=GDP*440/AGDP 

590 IP =[ (GE+IV]/CN*.1+(WN/W0]/100]*100 
600 IV=(CN*67)/(IP*IP] 

610 W 0 = W N 

6 20 Z = Z + 1sIF Z > 4 THEN Z = 1:Y=Y + 1 
630 RETURN 

640 REM *************************** 

650 REM CHECK BUDGET DEFICIT 
660 IF BD>-1000 THEN RETURN 
670 GAM E = 1 

6 80 F LA G = 1 
690 RETURN 

700 REM *************************** 

710 REM CHECK STANDARD OF LIVING 

7 20 IF Y <.7 5 THEN RETURN 

730 IF I NT( (2 *( (RGDP/AGDP ) *1 00 )-1 00 )/3 ] > 

-15 THEN RETURN 

740 GAM E = 1 

750 F LA G = 2 

760 RETURN 

770 REM *************************** 

780 REM CHECK INFLATION RATE 

7 90 IF IP <1 5 THEN RETURN 

8 0 0 GAM E = 1 
810 F L A G = 3 
820 RETURN 

830 REM *************************** 

840 REM CHECK UNEMPLOYMENT 

850 IF I NT(U*100/P] <1 5 THEN RETURN 

860 GAM E = 1 

870 F LA G = 4 

880 RETURN 

890 REM *************************** 

900 REM END OF THE GAME 

910 PRINT "PRESIDENT " ; A $ ; " , YOUR" 

920 PRINT "ADMINISTRATION'S POOR ECONOMI 
C " 
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930 PRINT "PERFORMANCE HAS LED TO AN UNA 
CCEPTABLE" 


940 

ii 

I F 

F LA G = 1 

THEN 

PRINT 

"BUDGET 

DEFICIT 

950 

I F 

F L A G = 2 

THEN 

PRINT 

"DROP 

I N 

THE 

ST 

AND ARD 

OF LIVING" 






960 

I F 

F L A G = 3 

THEN 

PRINT 

"RISE 

I N 

THE 

I N 

F LATION 

RATE" 







970 

I F 

F L A G = 4 

THEN 

PRINT 

"RISE 

I N 

UNEMPL 


0 Y M E N T " 

980 PRINT " AMONG OTHER THINGS.. 

n 

■ 

990 PRINT "- 

__n 


1000 PRINT 
UR " 

1010 PRINT 
RE ARE" 
1020 PRINT 
U STEP" 
1030 PRINT 
IDENT TO" 
1040 PRINT 
E " 

1050 FOR H 
1060 PRINT 


"THE LACK OF CONFIDENCE IN YO 
"ADMINISTRATION IS SO BAD THE 
"CALLS FOR YOU TO RESIGN. ..YO 
"ASIDE TO ALLOW THE VICE-PRES 
" OCCUPY THE OVAL OFFIC 
1 TO 1 0 0 0 :N EXT H 

m_ 


1070 PRINT "YOU WERE PRESIDENT FOR"Y+(Z* 
.25]"YEARS" 

1080 PRINT "DURING YOUR TERM OF OFFICE, 
THE" 

1090 PRINT "POPULATION ROSE BY"P-3*ML 
1100 PRINT "THE UNEMPLOYMENT RATE BECAME 
"INT(U*1000/P)/10"%" 

1110 PRINT "AND THE INFLATION RATE BECAM 
E"I NTl10*IP)/I 0"X " 

1120 PRINT "STANDARD OF LIVING CHANGED B 
Y"INT( (2*1 (RGDP/AGDP)*100)-100]/3) "X" 
1130 PRINT "AND THE BUDGET SURPLUS/DEFIC 
IT WAS $M"INT(10*BD)/10 

1140 END 
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1150 REM *************************** 
1160 REM INITIALIZATION 
1170 CLS 

1180 RANDOMIZE VAL(RIGHT$(TIME$ f 2]] 

11 90 M L = 1 0 0 0 *1 0 0 0 
1200 P=3*ML:REM POPULATION 
1210 U=P/10:REM UNEMPLOYMENT 
1220 IV=236sREM INVESTMENT 
1230 GE=118:REM GOVERNMENT EXPENDITURE 
1240 GU=0:REM COST OF UNEMPLOYMENT 
1250 GI= 0 s R E M INCOME FROM TAXES 
1 26 0 WN = 1 0 0 s R EM NEW WAGES 
1270 W0=100:REM OLD WAGES 

1 28 0 IP = 5 s R E M INFLATION PERCENT 
1290 GDP=440:REM GROSS DOMESTIC PRODUCT 

1 30 0 AGDP = 440 sREM BASE YEAR GDP 
1310 RGDP=440sREM REAL GDP 
1320 C N = 3 5 4 :REM ECONOMIC CONSTANT 
(USED THROUGHOUT SIMULATION] 

1 3 3 0 Z = 1 s GA M E = 0s F LA G = 0 
1 340 Y = 0 s R EM YEAR 

1350 PRINT "ENTER YOUR LAST NAME" 

1360 INPUT A $ 

1370 RETURN 
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Chapter Thirteen 
Playing the Stock Market 


The numbers a computer manipulates can represent anything, 
from cloud density, intricate subatomic reactions within a complex 
chemical experiment or the number of warriors taking part in a 
Roman raid on an English village. When computers were first used 
in business, the numbers generally stood for more mundane things 
such as statistics, sales charts and money. In the simulation in this 
chapter, we leave behind warriors in Roman Britain and revert to 
money. 

You are a broker dealing in a small market of five companies. You 
start the simulation with $15,000 and are asked to enter a financial 
target for which you will be striving during the run: 

ENTER YOUR GOAL FOR THIS SIMULATION, 

$16,000 TO $100,000 
? 250000 
TOO HIGHI 

ENTER YOUR GOAL FOR THIS SIMULATION, 

$16,000 TO $100,000 

? 16000 

Once you’ve done that, the state of the market on day one is 
revealed: 


DAY 1 YOUR GOAL IS $ 16000 


COMPANY NUMBER: 

1 2 3 4 5 

CHANCE OF INCREASE (X): 

23 59 28 59 41 
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B 


17 


CHANCE OF DECREASE (X): 

31 26 55 

CURRENT VALUE PER SHARE: 

$1.49 $ 1.99 $ 2.49 $ 2.99 $ 3.49 

NO. OF SHARES HELD: 

2000 1500 1200 1000 800 

BANK $ 265 TOTAL WORTH $ 15000 


DO YOU WANT TO SELL ANY SHARES (Y/N)? 

One cycle of buying and/or selling represents a day of trading. Each 
day, you are told the chance of each share rising or falling in price, 
and based on that information you can decide what to buy or sell: 


DAY 1 YOUR GOAL IS $ 16000 


COMPANY NUMBER: 

1 2 3 4 5 

CHANCE OF INCREASE (XI: 

23 59 28 59 41 

CHANCE OF DECREASE (X]: 

31 26 55 8 17 

CURRENT VALUE PER SHARE: 

$ 1.49 $ 1.99 $ 2.49 $ 2.99 $ 3.49 

NO. OF SHARES HELD: 

2000 1500 1200 1000 800 

BANK $ 265 TOTAL WORTH $ 15000 


WHICH ONES TO SELL? OK 1 
HOW MANY OF 1 TO SELL? 3000 
YOU DON'T HAVE THAT MANY I 
? 1500 


DAY 1 YOUR GOAL IS $ 16000 


COMPANY NUMBER: 

1 2 3 4 5 

CHANCE OF INCREASE (X]: 

23 59 28 59 41 


104 



8 


17 


CHANCE OF DECREASE (X): 

31 26 55 

CURRENT VALUE PER SHARE: 

$ 1.49 $ 1.99 $ 2.49 $ 2.99 $ 3.49 

NO. OF SHARES HELD: 

500 1500 1200 1000 800 

BANK $ 2500 TOTAL WORTH $ 15000 


WHICH COMPANY TO BUY? OK 4 
HOW MANY OF 4 TO BUY? 750 

You can only sell and buy shares once on each day, so you must 
choose wisely. After you’ve made your decisions, the computer 
will tell you how you rate to date as a stockbroker. Some of the 
assessments, as I’m sure you’ll discover, can be quite harsh: 


DAY 2 YOUR GOAL IS $ 16000 


COMPANY NUMBER: 

1 2 3 4 5 

CHANCE OF INCREASE (X): 


51 

11 43 

32 

35 

CHANCE 

OF DECREASE (X): 



49 

43 8 

49 

46 

CURRENT VALUE PER SHARE: 



$ 1.49 

$ 2.1 $ 2.36 $ 

3.16 

$ 3.49 

NO. OF 

SHARES HELD: 



600 

1500 1200 

1750 

BOO 

BANK $ 

108 TOTAL WORTH 

$ 15329.06 


YOUR RATING AFTER THAT ROUND OF 
TRADING IS 'BAD' 

<PRESS SPACEBAR TO CONTINUE > 

However, if you persevere, you may well prosper in the end. Just 
don’t allow yourself to be discouraged by assessments such as 
‘hopeless’: 
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DAY 8 YOUR GOAL IS $ 16000 


COMPANY 

NUMBER: 



1 

2 3 

4 

5 

CHANCE 

OF INCREASE (%)s 



18 

72 89 

24 

32 

CHANCE 

OF DECREASE [%): 



4 

25 1 

55 

50 


CURRENT VALUE PER SHARE: 

$1.53 $ 2.31 $ 2.57 $ 2.69 $ 3.68 

NO. OF SHARES HELD: 

2100 400 1200 1750 800 

BANK $ 191 TOTAL WORTH $-15103.32 


WHICH ONES TO SELL? OK 1 
HOW MANY OF 1 TO SELL? 2100 


DAY 11 YOUR GOAL IS $ 16000 


COMPANY NUMBER: 

1 2 3 4 5 

CHANCE OF INCREASE (X): 

87 30 18 27 30 

CHANCE OF DECREASE (X): 

4 50 51 44 52 

CURRENT VALUE PER SHARE: 

$ 1.58 $ 2.44 $ 2.69 $ 2.65 $ 3.68 

NO. OF SHARES HELD: 

600 0 2400 1750 800 

BANK $ 355 TOTAL WORTH $ 15352.79 


YOUR RATING AFTER THAT ROUND OF 
TRADING IS 'HOPELESS* 

<PRESS SPACEBAR TO CONTINUE > 
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DAY 17 YOUR GOAL IS $ 16000 


COMPANY NUMBER: 

1 2 3 4 5 

CHANCE OF INCREASE (XJ: 

47 65 38 8 47 

CHANCE OF DECREASE (X): 

32 7 44 25 40 

CURRENT VALUE PER SHARE: 

$1.78 $ 2.5 $ 2.61 $ 2.98 $ 3.83 

NO. OF SHARES HELD; 

0 0 2900 1750 800 

BANK $ 229 TOTAL WORTH $ 16109.47 


YOU'VE HIT YOUR FINANCIAL GOALI 

The Stock Market listing is in the following chapter. 
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Chapter Fourteen 
The Stock Market Listing 


When you’re ready to take on the brains of Wall Street, enter and 
run the following listing. Just don’t be too ambitious with your 
early financial goals, or you’ll never make it. 

10 REM STOCK MARKET 
20 CLS 

30 RANDOMIZE V A L ( R I G H T $ l T I M E $ , 2 ]) 

40 DIM S(5) , N(5] f P(5 ) , D ( 5 ) 

50 S(1)=1 . 49:S(2)=1 .99:S(3)=2.49:S(4]=2. 

99:S(5)=3.49 

60 N(1]=2000:N(2]=1500:N(3]=1200:N(4)=10 

00:N(5]=9 0 0 

70 BB = 265 :T V = 1 5000 :Q Q = 1 5000 :D AY = 1 
80 PRINTzPRINT "ENTER YOUR GOAL FOR THIS 
SIMULATION," 

90 PRINT TABt81 ; "$1 6 , 0 00 TO $1 00,000 " 

100 INPUT GOAL 

110 IF GOALC16000 THEN PRINT "TOO LOW!": 
GOTO 80 

120 IF G0AL>100*1000 THEN PRINT "TOO HIG 
H I " s G 0T 0 8 0 

130 REM *************** * * ****** * 

140 REM MAJOR LOOP 
150 FOR C = 1 TO 5 

160 REM ADJUST THE 55 IN NEXT LINE TO 

MODIFY GAME; 80 VERY HARD, 30 VERY EASY 

170 D(C)=1 NTlRND(1 )*55)+1 

180 P(C)=INT(RND(1)*(100-D(C]))+1 

190 NEXT C 

200 GOSUB 230 

210 GOTO 460 

220 REM ************************ 
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230 REM PRINTOUT 
240 CLS 

250 PRINT "- 

_it 

260 PRINT "DAY"DAY" YOUR GOAL IS 

$ " G 0 A L 

270 PRINT "- 

_ii 

280 PRINT "COMPANY NUMBER:" 

290 PRINT TAB(2] ;1 ;TAB(9) ; 2 ; TAB(16 ) } 3 ; TA 
B(25];4;TAB(32];5 

300 PRINT "CHANCE OF INCREASE (X):" 

310 PRINT TAB(2] ;P( 1 ] ;TAB(9) ; P(2) ;TAB(16 
1 5 P C 3] |T A B(2 5] ;P(4] ;T A B(3 2) ;P(5] 

320 PRINT "CHANCE OF DECREASE [%):" 

330 PRINT TAB(2] ;D[1 ] ; T A B ( 9 ] ; D [2] ; T A B(16 
) ;D(3) ; T A B ( 2 5 ) ;D(4] ;TAB(32] »D(5) 

340 PRINT "CURRENT VALUE PER SHARE:" 

350 PRINT ";I NT(S (1 )*100]/I 00;TAB(8 ] ; " 
$"}INT(S[2)*1001/100; 

360 PRINT TAB(15] ; "$";I NT(S(3]*100]/I 00 ; 
TAB[23]}"$"jINT(Sl4)*100)/100: 

370 PRINT TAB(30] j "$";I NT(S(5)*100]/I 0 0 
380 PRINT "NO. OF SHARES HELD:" 

3 90 PRINT TAB(2 ) ; N (1 ] ; TAB(9) ; N(2) ; TAB[16 
] ; N ( 3 ) ;T A B[2 4) ;N(4] ; T A B(31 ] ; N ( 5 ) 

400 PRINT "BANK $"INT(BB]" TOTAL WORTH $ 
"TV 

410 PRINT "- 

___ii 

420 IF TV > G 0A L THEN PRINT "YOU'VE HIT YO 
UR FINANCIAL GOALI":END 
430 RETURN 

440 REM ************************ 

450 REM ♦* SELL ** 

460 PRINT "DO YOU WANT TO SELL ANY SHARE 
S (Y/N)?" 

470 A$=INKEY$ 

480 IF A $ < >"Y" AND A$<>"N" THEN 470 
490 IF A $ ="N" THEN 690 
500 GOSUB 230 
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510 PRINT "WHICH ONES TO SELL?"; 

520 A$ = INKEY $ 

530 IF A $ <"1" OR A $ > " 5 " THEN 520 
540 C = VA L(A $] 

550 PRINT " OK"C 

560 PRINT "HOW MANY OF"C"TO SELL"; 

570 INPUT N 

580 IF N > N[C1 THEN PRINT "YOU DON'T HAVE 
THAT MANY1":GOTO 570 
590 REM ************************ 

600 REM ADJUST FIGURES AFTER SALE 
610 BB=BB+S(C)* N : R E M ADD VALUE TO BANK 
620 N(C)=N(C]-N:REM SUBTRACT NO. SOLD 
630 TV=0:REM SET TOTAL WORTH TO ZERO 
640 REM NOW DETERMINE CURRENT WORTH 
650 FOR C=1 TO 5 
660 TV = TV + N(C]* S(C) 

670 NEXT C 

680 TV=TV+BB:REM ADD IN BANK BALANCE 
690 GOSUB 230 

700 REM ************************ 

710 REM ** BUY ** 

720 PRINT "DO YOU WANT TO BUY ANY SHARES 
(Y/NJ ?" 

730 A$=INKEY$ 

740 IF A $ < >"Y " AND A $ < >"N" THEN 730 
750 IF A $ ="N" THEN 890 
760 GOSUB 230 

770 PRINT "WHICH COMPANY TO BUY?"; 

780 A$=INKEY$ 

790 IF A $ <"1 " OR A $ >"5" THEN 780 
800 C = V A L(A $] 

810 PRINT " 0 K"C 

820 PRINT "HOW MANY 0F"C"T0 BUY"; 

830 INPUT N 

840 IF N * S[C) > B B THEN PRINT "YOU DON'T H 

AVE ENOUGH M0NEY!":G0T0 830 

850 REM ************************ 

860 REM ADJUST FIGURES AFTER BUY 
870 BB=BB-S(C)* N 
880 N(C)=N(C)+N 
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8 90 T V = 0 

900 FOR C = 1 TO 5 
910 TV=TV+N(C)*S(C) 

980 NEXT C 
930 TV=TV+BB 
940 GOSUB 830 

950 REM ************************ 

960 REM MODIFY ALL INDICATORS 
970 T V = 0 

980 FOR C = 1 TO 5 

990 K=INT(RND(1)*100)+1 

1 000 IF K < P(C] THEN S(C)=S(C)*(1 + (P(C)/1 
000 )) 

1010 K=INT(RND(1)*100]+1 

1 080 IF K < D(C) THEN S[C)=S(C)/(1 + (D(C)/1 
000 )) 

1 030 TV = TV+(S(C)*N(C) ) 

1040 NEXT C 
1050 TV=TV+BB 
1 06 0 QQ=QQ*1 .005 
1070 W=(TV*1OO/QQ)-100 
1080 IF W=0 THEN W=.1 
1 090 W = W + 6 

1100 IF W<1 THEN W = 1 
1110 IF W > 1 5 THEN W = 1 5 
1180 RESTORE 
1130 FOR T = 1 TOW 
1140 READ A $ 

1150 NEXT T 
1160 PRINT 

1170 REM ************************ 

1180 REM GIVE RATING, START NEW ROUND 
1190 PRINT "YOUR RATING AFTER THAT ROUND 
OF " 

1800 PRINT "TRADING IS '" ; A $ } " ' " 

1810 PRINT:PRINT " <PRESS SPACEBAR TO 
CONTINUE >" 

1880 IF INKEYSO" " THEN 1880:REM NOTE 
SPACE BETWEEN QUOTE MARKS 
1830 DAY=DAY+1 
1840 GOTO 150 
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1250 DATA 
1260 DATA 
1270 DATA 
1280 DATA 
VERAGE" 
1290 DATA 
D " 

1300 DATA 
VE " 


"HOPELESS","VERY , VERY POOR" 
"TERRIBLE","AWFUL","BAD" 

"VERY ORDINARY","AVERAGE" 
"REASONABLE","A LITTLE ABOVE A 

"FAIRLY GOODGOOD ","VERY GOO 

"GREATEXCELLENT","SUPER LATI 


If you want to modify the degree of difficulty of this simulation, 
change the 55 in line 170. The lower the number, down to 30, the 
easier the program is to run with a profit. The higher the number, 
up to 80, the more difficult it becomes. The simulation will not run 
even remotely realistically if you substitute values less than 30, or 
greater than 80, in line 170. 


113 


114 



Chapter Fifteen 
Running A Vehicle Factory 


Some of the complex processes of manufacturing and sales are 
presented in this simulation (albeit in a very simplified form). It 
took 60 years for the car market to become saturated in the States. 
You have been unfortunate enough to be appointed to the number 
one spot at a major car manufacturing concern the very month the 
saturation finally became general knowledge. 

To save the day (and your reputation as a hard-hitting, straight- 
from-the-shoulder, trouble-shootin’, crisis-solvin’ executive) you 
must put the tottering firm back on its feet. 

You take over just as the accountants announce the company is 
losing $60 million a year. Your task, needless to say, is to try and 
make the company profitable. 

Here’s how it begins: 

INDUSTRY SALES 50000 IN MONTH 0 


YOU HAVE 12000 EMPLOYEES 
AVERAGE WAGES ARE $ 22995 

OR $ M 22.9 PER MONTH 


As you can see, the total sales within the vehicle industry for the 
month before the simulation began (month 0) were 50,000. You 
start the simulation with your company holding about a quarter of 
the total industry sales, around 12,500 vehicles. 

You have four factories, currently producing more vehicles than 
you can sell: 
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MAXIMUM MONTHLY OUTPUT: 
FACTORY 1: 8900 

FACTORY 2: 3250 

FACTORY 3: 2500 

FACTORY 4: 1625 


TOTAL OUTPUT IS 16275 


EFFICIENCY LEVEL IS 77 * 

DO YOU WANT TO EXPAND OUTPUT (Y/N)? 

N 

DO YOU WANT TO SELL FACTORY 4 (Y/NJ? 

N 

The average wage for each employee is around $23,000 when the 
simulation begins. This will rise each three months, due to unions 
demanding parity be kept with inflation. Although you cannot 
reduce wages, or refuse to include the rise due to inflation, you can 
decide how many people to hire or fire, and at what price you will 
sell each vehicle (when the simulation begins, each car is selling for 
around $12,000): 

INDUSTRY SALES 50000 IN MONTH 0 


YOU HAVE 12000 EMPLOYEES 
AVERAGE WAGES ARE $ 22995 

OR $ M 22.9 PER MONTH 


HOW MANY EMPLOYEES TO HIRE? 0 
HOW MANY EMPLOYEES TO FIRE? 567 


YOU HAVE 11433 EMPLOYEES 
AVERAGE WAGES ARE $ 22995 

OR $ M 21.9 PER MONTH 


WHAT IS YOUR SELLING PRICE? 12345 

Once you’ve answered all the relevant questions, the simulation 
reports back to you on how well (or otherwise) you have 
performed: 
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INDUSTRY SALES 48833 IN MONTH 1 

YOUR SALES: 13386 ( 27.4 * OF TOTAL ) 


YOU HAVE 11433 EMPLOYEES 
AVERAGE WAGES ARE $ 22995 
OR $ M 21.9 PER MONTH 


AVERAGE COST PER VEHICLE IS $ 10192 
AND AVERAGE SELLING PRICE IS * 12345 
SO THE AVERAGE PROFIT IS $ 2152 
OR $ M 28.8 PER MONTH 


PROFIT FOR THE MONTH IS $M 6.9 
& TOTAL PROFIT TO DATE IS «M 6.9 


DO YOU WANT TO RESIGN (Y/N)? 

N 

That wasn’t too bad. You actually made a profit. The process 
continues: 

INDUSTRY SALES 48833 IN MONTH 1 

YOUR SALES: 13386 { 27.4 * OF TOTAL ) 


YOU HAVE 10233 EMPLOYEES 
AVERAGE WAGES ARE $ 22995 

OR $ M 19.6 PER MONTH 


AVERAGE COST PER VEHICLE IS $ 10192 

AND AVERAGE SELLING PRICE IS $ 12345 
SO THE AVERAGE PROFIT IS $ 2152 

OR $ M 28.8 PER MONTH 


PROFIT FOR THE MONTH IS $M 6.9 
& TOTAL PROFIT TO DATE IS $M 6.9 


WHAT IS YOUR SELLING PRICE? 24000 
TOO BIG A CHANGE FOR THE MARKET 
WHAT IS YOUR SELLING PRICE? 14000 
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INDUSTRY SALES 51485 IN MONTH 2 
YOUR SALES: 6435 ( 12.5 * OF TOTAL ) 


YOU HAVE 10233 EMPLOYEES 
AVERAGE WAGES ARE * 22995 

OR $ M 19.6 PER MONTH 


AVERAGE COST PER VEHICLE IS $ 11630 

AND AVERAGE SELLING PRICE IS $ 14000 

SO THE AVERAGE PROFIT IS * 2369 

OR $ M 15.2 PER MONTH 


PROFIT FOR THE MONTH IS SM-4.4 
& TOTAL PROFIT TO DATE IS $M 2.5 


DO YOU WANT TO RESIGN (Y/N)? 

N 

And just when you think you’re getting it all under control, 
inflation exacts its toll: 

INFLATION RATE THIS QUARTER IS 2.5 X 
AVERAGE WAGES BILL WILL NOW RISE TO 
$ 23569 PER EMPLOYEE 

ANY KEY TO CONTINUE 

Your next month is not very good: 

INDUSTRY SALES 49184 IN MONTH 3 
YOUR SALES: 6837 [ 13.9 X OF TOTAL ] 


YOU HAVE 9743 EMPLOYEES 
AVERAGE WAGES ARE < 23569.88 

OR $ M 19.1 PER MONTH 


AVERAGE COST PER VEHICLE IS $ 11835 
AND AVERAGE SELLING PRICE IS $ 14500 
SO THE AVERAGE PROFIT IS $ 2664 

OR $ M 18.2 PER MONTH 
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PROFIT FOR THE MONTH IS $M-1 
& TOTAL PROFIT TO DATE IS $M 1.5 


DO YOU WANT TO RESIGN (Y/N]? 

You start the simulation, as you’ve seen, with four factories. You 
have the option, at any time, of selling off factory number four. 
Alternatively, you can increase the output of the factories. You’ll 
find that the minimum cost per vehicle (and therefore the 
maximum profit per sale) occurs when your factories are running 
at 85% efficiency. We decide to sell off factory four, to let the 
income from that sale offset our losses: 

YOUR MONTHLY SALES ARE 5517 


MAXIMUM MONTHLY OUTPUT: 
FACTORY 1: 8900 

FACTORY 2: 3250 

FACTORY 3: 2500 

FACTORY 4: 1625 


TOTAL OUTPUT IS 16275 


EFFICIENCY LEVEL IS 33 X 

DO YOU WANT TO EXPAND OUTPUT (Y/Nj? 

N 

DO YOU WANT TO SELL FACTORY 4 (Y/N)? 

Y 

FACTORY 4 IS VALUED FOR SALE AT «M104 

YOU CAN'T REBUY IT LATER IF 
YOU SELL IT... 

DO YOU WANT TO SELL (Y/NJ? 

Y 

I’ve tried this simulation several times. Each time, the same fate 
occurs. Perhaps I’m just not cut out to run a multi-million dollar 
business. 

INDUSTRY SALES 48991 IN MONTH 10 
YOUR SALES: 5727 ( 11.6 X OF TOTAL ] 


YOU HAVE 9703 EMPLOYEES 
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AVERAGE WAGES ARE $ 24521.51 

OR $ M 19.8 PER MONTH 


AVERAGE COST PER VEHICLE IS $ 12418 
AND AVERAGE SELLING PRICE IS $ 15400 
SO THE AVERAGE PROFIT IS $ 2981 

OR $ M 17 PER MONTH 


PROFIT FOR THE MONTH IS $M-2.8 
& TOTAL PROFIT TO DATE IS $M 68.4 


DO YOU WANT TO RESIGN (Y/N)? 


YOU JUST MADE YOUR TWELFTH MONTHLY 

LOSS IN A ROW. 

YOUR EMPLOYMENT 
IS HEREBY TERMINATED I I 

A much better outcome is, however, possible for those who are 
more skilled than I am: 

WELL DONEI THE COMPANY HAS MADE MORE 
THAN $ M 2 0 0 . YOU'VE BEEN MADE 

A MEMBER OF THE BOARD 

Here are the principal variables, as they are assigned at the start of a 
run of this simulation: 

1640 REM INITIALIZATION 
1650 CLS 

1660 RANDOMIZE VALlRIGHT*[TIME$,2]) 

1 67 0 DIM M(5] » Y[5] 

1680 NE=12000:REM STARTING NO EMPLOYEES 

1690 AW=22995:REM STARTING AVERAGE WAGE 
1 700 AC = 11100:REM COST PR I CE/VEHICLE 
1710 A S = 12000:REM SELLING PRICE 
1 720 M 1 = 50*1 000 :MC = 10100 
1730 Y( 3 ) =1 2500 

1740 MS=25:EF=77:FA=160:SF=0:MT=0 
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1750 FOR J=1 TO 5 
1760 READ M(J) 

1770 NEXT J 
1780 RETURN 

1790 DATA 8900,3250,2500,1625,16275 

As you can see, the REM statements allow you to trace the various 
formulae which are used in this simulation: 

220 INPUT "HOW MANY EMPLOYEES TO HIRE"}H 
E 

230 NE=NE+HE:IF HE>0 THEN 260 

240 INPUT "HOW MANY EMPLOYEES TO FIRE" ; H 

E 

250 NE=NE-HE 
260 GOSUB 650 

270 P1=ASsREM SET PI EQUAL TO OLD PRICE 
280 INPUT "WHAT IS YOUR SELLING PRICE";A 
S 

290 REM NEXT LINE REJECTS TOO BIG A 
CHANGE IN SELLING PRICE 
300 IF ABS(PI-AS)>2500 THEN PRINT "TOO B 
IG A CHANGE FOR THE MARKET":GOTO 280 
310 CLS 

320 PRINT:PRINT:PRINT 

330 MI=INT(RND{1)*40001+48*1000:REM THIS 
MONTH'S SALES BY INDUSTRY 
340 C = C +1 :R E M COUNTS NUMBER OF MONTHS 
350 IF C < 3 THEN 470 

360 M=INT(RND[1)*10+11/4:REM INFLATION 
370 CLS 

380 PRINT "INFLATION RATE THIS QUARTER I 
S " M " % " 

390 PRINT "AVERAGE WAGES BILL WILL NOW R 
I S E TO" 

400 AW=[AW*M/1001+AW 

410 PRINT TABIBJ;"$"INT(AW]" PER EMPLOY 
EE" 

420 IF INKEYIO"" THEN 420 

430 PRINTsPRINT T A B(12) ;"ANY KEY TO CONT 
INUE" 
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440 IF INKEY$="" THEN 440 
450 FA=(F A * M/100)+FA 
460 C = 0 

470 Y(1 )=NE*15/12sREM SALES BASED ON 
NUMBER OF EMPLOYEES 
480 Y(2 ) = t1OO-AS/FA)*MI/100sREM SALES 
BASED ON MONTHLY INDUSTRY SALES 
490 REM NEXT LINES SET LOWEST FIGURE 
FROM Y11 ) ,Y[2) ,M15) EQUAL TO Y(3) 

500 IF Y(1)<Y(2) AND Y(1)<M[5) THEN Y(3) 
=Y(1):GOTO 540 

510 IF Y[2)<Y[1 1 AND Y(2)<M(5) THEN Y t 3} 
= Y ( 2 ) : GOTO 540 
520 Y(3)=M(5 ) 

530 REM NEXT LINES DETERMINE 
MONTHLY SALES 

540 IF ABSlPI-AS) <501 THEN Y(3)=3.6 *Yl3) 
/ 3 

550 IF Y(3) >M(5) THEN Y l 3)=Yl 3 )-1 975 :GOT 
0 550 

560 MC=(MC*M/100]+MC 

570 EF=Y(3)/M(5)*100sREM EFFICIENCY * 

AS SALES DIVIDED BY TOTAL OUTPUT 
580 AC=(MC*(ABSl85-EF)/3)/100)+MC:REM 

AVERAGE COST PER VEHICLE 
590 MP=[|Y[3]*|AS — AC) )-(NE*AW/12] ) :REM 
MONTHLY PROFIT 
600 MP=INT(MP/(100*1000)) 

610 TP=TP+MP/10:REM TOTAL PROFIT 

IN MILLIONS 

6 20 M = 0 

The complete listing for Detroit City is in the next chapter. 
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Chapter Sixteen 
The Detroit City Listing 


Here’s the complete listing of the Detroit City program: 

10 REM DETROIT CITY 

20 60SUB 1 6 40 :R EM INITIALIZE 

30 GOTO 110 

40 MT=MT+1:REM COUNTS MONTHS 

50 GOSUB 650 

60 IF TP >2 0 0 THEN 1560 

70 PRINT "DO YOU WANT TO RESIGN (Y/N)?" 
80 GOSUB 1010 

90 IF A $ ="Y" THEN PRINT "OK, CHIEF":END 
100 GOSUB 1380 
110 GOSUB 650 

120 FOR T = 1 TO 1 000 :NEXT T 
130 GOSUB 850 

140 PRINT "DO YOU WANT TO EXPAND OUTPUT 
(Y/N)? " 

150 GOSUB 1010 

160 IF A $ = "Y" THEN 1080 

170 IF SF = 1 THEN 210 

180 PRINT "DO YOU WANT TO SELL FACTORY 4 
(Y/N)?" 

190 GOSUB 1010 

200 IF A $ = "Y" THEN 1250 

210 GOSUB 650 

220 INPUT "HOW MANY EMPLOYEES TO HIRE";H 
E 

230 NE=NE+HE:IF HE>0 THEN 260 

240 INPUT "HOW MANY EMPLOYEES TO FIR E"j H 

E 

250 N E = N E-H E 
260 GOSUB 650 
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270 P1=AS:REM SET PI EQUAL TO OLD PRICE 
280 INPUT "WHAT IS YOUR SELLING PRICE";A 
S 

290 REM NEXT LINE REJECTS TOO BIG A 
CHANGE IN SELLING PRICE 
300 IF ABS(P1-AS]>2500 THEN PRINT "TOO B 
IG A CHANGE FOR THE MARKET":GOTO 280 
310 CLS 

320 PRINT: P R I NT sPRINT 

330 MI=INT(RND(1]*4000)+48*1000:REM THIS 
MONTH'S SALES BY INDUSTRY 
340 C = C + 1 :R EM COUNTS NUMBER OF MONTHS 
350 IF C < 3 THEN 470 

360 M=INT(RND(1)*10+1]/4:REM INFLATION 
370 CLS 

380 PRINT "INFLATION RATE THIS QUARTER I 
S " M » % " 

390 PRINT "AVERAGE WAGES BILL WILL NOW R 
IS E TO" 

400 AW=(AW*M/100]+AW 

410 PRINT TAB[8) ; "$"I NT(AW] " PER EMPLOY 
EE" 

420 IF INKEY$<>"" THEN 420 

430 PRINT:PRINT TAB(12]}"ANY KEY TO CONT 
I N U E " 

440 IF INKEY$="" THEN 440 
450 FA=(FA*M/100]+FA 
460 C = 0 

470 Y(1]=NE*15/12:REM SALES BASED ON 
NUMBER OF EMPLOYEES 
480 Y(2]=(1OO-AS/FA]*MI/100:REM SALES 
BASED ON MONTHLY INDUSTRY SALES 
490 REM NEXT LINES SET LOWEST FIGURE 
FROM Y(1 ) ,Y(2) , M[5) EQUAL TO Y(3] 

500 IF Y[1)<Y(2) AND Y(1]<M(5) THEN Y(3) 
=Y(1):GOTO 540 

510 IF Y(2)<Y(1) AND Y(2)<M(5) THEN Y(3) 
=Y(2]:GOTO 540 
520 Y(3]= M(5) 

530 REM NEXT LINES DETERMINE 
MONTHLY SALES 
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540 IF ABS(PI-AS)<501 THEN Y(3]=3.6 *Y(3 ) 
/ 3 

550 IF Y(3)>M(5) THEN Y ( 3 ) = Y ( 3 ) -1 9 7 5 : G 0T 
0 550 

560 MC=(MC*M/100)+HC 

570 EF=Y(3)/M(5]*100sREM EFFICIENCY * 

AS SALES DIVIDED BY TOTAL OUTPUT 
580 AC=(MC*(ABS(85-EF)/3)/100)+MC:REM 

AVERAGE COST PER VEHICLE 
590 MP=((Y(3]*(AS—AC))-[NE*AW/12j]: R EM 
MONTHLY PROFIT 
6 00 MP = INT(MP/t 1 00*1 000 ) ) 

610 TP=TP+MP/10:REM TOTAL PROFIT 

IN MILLIONS 

620 M = 0 
630 GOTO 40 

640 REM ************************* 

650 REM REPORT PRINTOUT 

6 60 CLS 

670 PRINT "INDUSTRY SALES"MI"IN MONTH"MT 

680 IF MT >0 THEN PRINT "YOUR SALES:"INT( 
Y(3 J J" ("I NT(Yt 3 )*1 000/MI)/10 "X OF TOTAL 

) " 

690 PRINT "- 

_If 

700 PRINT "YOU HAVE"NE"EMPLOYEES” 

710 PRINT "AVERAGE WAGES ARE $"AW 

720 PRINT " OR $M”INT(AW<‘NE/(100*1000)/1 

2)/10”PER MONTH” 

730 PRINT ”- 

_it 

740 IF M T = 0 THEN RETURN 

750 PRINT "AVERAGE COST PER VEHICLE IS 
$"INT(AC] 

760 PRINT "AND AVERAGE SELLING PRICE IS 
$ " I N T [ A S ] 

770 PRINT "SO THE AVERAGE PROFIT IS $"IN 
T[AS-AC] 

7 80 PRINT "OR $ M ” I NT [ [ A S-A C } * Y ( 3 ) / ( 1 0 0 * 1 
0 0 0 ] )/10 n PER MONTH" 
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7 90 PRINT "- 

_n 

800 PRINT "PROFIT FOR THE MONTH IS $M"MP 
/I 0 

810 PRINT "& TOTAL PROFIT TO DATE IS $M" 
I NT(TP*10]/I 0 

820 PRINT "- 

_n 

830 RETURN 

840 REM ************************* 

850 REM MONTH REPORT 
860 CLS 

870 IF M T > 0 THEN PRINT "YOUR MONTHLY SAL 
ES ARE"INT(Y(3J) 

880 PRINT "- 

_n 

890 PRINT "MAXIMUM MONTHLY OUTPUT:" 

900 PRINT TAB(3);"FACTORY 1 :"I NT(M (1 ] J 
910 PRINT TAB(3);"FACTORY 2«"INT(M(2)) 
920 PRINT TAB(3);"FACTORY 3:"INT(M(3)J 
930 IF SF =1 THEN 960 

940 PRINT TAB(3 ) 5 "FACTORY 4:"INT(M(4JJ 
9 50 PRINT "- 

_ _ _ n 

960 PRINT "TOTAL OUTPUT IS"INT(M(5J) 

970 PRINT "- 

_n 

980 PRINT "EFFICIENCY LEVEL IS"INT(EF)"X 

n 

990 RETURN 

1000 REM ************************* 

1010 REM GET REPLIES 
1020 A*=INKEY$ 

1030 IF A $ < >"Y" AND A * < >"N" THEN 1020 
1040 PRINT TAB(22] ;A $ 

1 050 FOR J = 1 TO 5 0 0 :N EXT J 
1060 RETURN 

1070 REM ************************* 

1080 REM INCREASE OUTPUT? 

1090 IF M(4]=0 THEN X=15:G0T0 1110 
1100 X = 18 
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1110 PRINT "IT WILL COST $M"X" TO EXPAND 

N 

1120 PRINT TAB[ 8 ] 5 "OUTPUT BY IX" 

1130 PRINT "- 

_ii 

1140 PRINT "HOW MANY X DO YOU WISH TO RA 
ISE OUTPUT?" 

1150 INPUT EP: IF EP<0 OR EP>100 THEN 115 
0 

1160 M(5 )=0 

1170 FOR T = 1 TO 4 

1180 M(T]=M[TJ+M(T)*EP /100 

1190 M(5]=M(5)+M(T) 

1200 NEXT T 
1210 TP = TP-EP *X 
1 220 FOR T = 1 TO 500 :NEXT T 
1230 GOTO 170 

1250 REM SALE OF FACTORY FOUR 
1260 PRINT "FACTORY 4 IS VALUED FOR SALE 
AT $ M 10 4" 

1270 PRINT "YOU CAN'T REBUY IT LATER IF 
YOU SELL IT ... " 

1280 PRINT "DO YOU WANT TO SELL (Y/NJ?" 

1290 GOSUB 1010 

1300 IF A $ ="N" THEN 210 

1310 TP = TP + 1 04 

1 320 SF =1 

1330 M(5)=M(1]+M(2]+M(3] 

1340 M(4]=0 
1350 GOTO 170 

1360 REM ************************* 

1370 REM CHECK ON LOSSES 

1 380 IF M P >0 THEN SA = 0:GOTO 1480 

1390 SA=SA +1 

1 400 IF S A >1 1 THEN 1420 

1410 GOTO 1480 

1420 CLSsPRINT 

1430 PRINT "YOU JUST MADE YOUR TWELFTH M 
ONTHLY" 

1 440 PRINT "LOSS IN A ROW. 

n 
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1450 PRINT TAB(6);"Y0UR EMPLOYMENT" 

1460 PRINT TAB(6];"IS HEREBY TERMINATED! 

I " 

1 470 END 

1 480 IF TP > = -250 THEN 1530 
1490 CLSrPRINT 

1500 PRINT "UNDER YOUR MANAGEMENT, THE C 
OMPANY HAS" 

1510 PRINT "LOST MORE THAN $M250!" 

1520 GOTO 1450 
1 530 IF T P > 2 0 0 THEN 1570 
1540 RETURN 

1550 REM ************************* 

1560 REM SWEET SWEET SUCCESS!!! 

1570 CLSsPRINT 

1580 PRINT "WELL DONE! THE COMPANY HAS M 
ADE MORE" 

1590 PRINT " THAN $M200. YOU'VE BEE 

N MADE” 

1600 PRINT " A MEMBER OF THE BOAR 

D " 

1610 FOR T = 1 TO 2000 :NEXT T 
1620 END 

1630 REM ************************* 

1640 REM INITIALIZATION 
1650 CLS 

1 660 RANDOMIZE VAL(RIGHT$(TIME«,2) ) 

1 670 DIM M(5) ,Y(5 ) 

1680 NE=12000:REM STARTING NO EMPLOYEES 

1690 AW=22995:REM STARTING AVERAGE WAGE 
1700 AC=11100:REM COST PRICE/VEHICLE 
1710 AS=12000:REM SELLING PRICE 
1720 M1=50*1000sMC=10100 
1730 Y(3)=12500 

1740 MS=25:EF=77:FA=160:SF=0:MT=0 
1750 FOR J=1 TO 5 
1760 READ M(J) 

1770 NEXT J 
1780 RETURN 

1790 DATA 8900,3250,2500,1625,16275 
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Chapter Seventeen 
Life at the Super Bowl 


It all started back in 1823, at a very upper class public school in 
England. Rugby School student, William Webb Ellis, was playing 
soccer one day, when he picked up the ball, tucked it under his arm, 
and ran frantically across his opponent’s goal. This action was the 
moment in which the game which became rugby football was born. 
From rugby football came rugby league, and Gridiron. 

Some students from Harvard in 1874 saw the game, as it had then 
evolved, underway at Montreal University, and liked what they 
saw. They took some of the Montreal rules and used them to 
modify a soccer-like game which was already gaining favour in the 
States. 

The game took off, but was so rough, and caused so many injuries, 
that at the turn of the century many colleges called for it to be 
banned. However, Teddy Roosevelt, who liked the game (and most 
other rugged sports), suggested that instead of banning it, the game 
should be made simpler. A committee, formed of leading coaches, 
managers and players, met in 1906 to follow Roosevelt’s 
suggestion, and from this committee comes the Gridiron we know 
today. 

In our program, you can either play against the computer team (the 
‘Silicon Cowboys’) or against another human being. In the game 
shown here, I decided to play against the computer: 

ONE PLAYER OR TWO 
? 1 

AND THE NAME OF THE VISITING TEAM? 

? HARTNELL'S RAIDERS 

In this simulation, you have the option of throwing, carrying or 
punting (including field goal attempts) the ball. The program 
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allows for four 15 minute quarters, and tests your decision-making 
skills and reflexes. 

THERE ARE 60 MINUTES TO GO 

SILICON COWBOYS TO KICK OFF 
YOU ARE ON YOUR OWN 35 YARD LINE 
SILICON COWBOYS HAVE... 

KICKED 1 YARDS 
KICKED 2 YARDS 
KICKED 3 YARDS 


KICKED 52 YARDS 
KICKED 53 YARDS 
KICKED 54 YARDS 
KICKED 55 YARDS 
THE BALL IS CAUGHTI 
AND RETURNED 1 YARDS 
AND RETURNED 2 YARDS 
AND RETURNED 3 YARDS 

AND RETURNED 27 YARDS 
AND RETURNED 28 YARDS 
AND RETURNED 29 YARDS 


THE BALL IS DOWN ON 

HARTNELL'S RAIDERS'S 39 YARD LINE 
> PRESS ANY KEY < 


SILICO 0 HARTNE 0 
60 MINUTES TO GO 


HARTNELL'S RAIDERS IN POSSESSION 
0 DOWN 

10 YARDS TO GO 


START AT 39 YARD LINE 
NOW ON 39 YARD LINE 
61 YARDS TO TOUCHDOWN 
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ON THIS PLAY HARTNELL'S RAIDERS CAN 
EITHER 1 - THROW 

2 - CARRY 
OR 3 - PUNT 

Once you’ve decided on your play, the computer will begin a count 
from one to eleven. You have to get rid of the ball during that 
count. If you don’t do so in time, you’ll be ‘sacked’ and lose 
yardage or possession. 

HARTNELL'S RAIDERS, YOUR QUARTERBACK HAS 
SOT THE BALL 


WAIT FOR THE COUNT, HARTNELL'S RAIDERS, 
THEN HIT ANY KEY . . . 

1 

2 

3 

4 

5 

6 


NICE PUNT . . . 

YOU'VE KICKED 24 YARDS 


The simulation tempts you to wait as long as possible before 
delivering the ball, because the longer you wait, the further the ball 
will travel. For example, if you decide to throw the ball, and you 
stop the count on two, the ball will only travel 10 yards, whereas it 
would have gone 40 yards if you’d stopped the count on 10. 

THE BALL IS CAUGHT! 

AND RETURNED 1 YARDS 

AND RETURNED 2 YARDS 

AND RETURNED 3 YARDS 

AND RETURNED 17 YARDS 
AND RETURNED 18 YARDS 
AND RETURNED 19 YARDS 
AND RETURNED 20 YARDS 
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THE BALL IS DOWN ON 

SILICON COWBOYS'S 58 YARD LINE 


SILICO 0 HARTNE 0 
59.7 MINUTES TO 60 


SILICON COWBOYS IN POSSESSION 
0 D OWN 

10 YARDS TO 60 


START AT 58 YARD LINE 
NOW ON 58 YARD LINE 
4 S YARDS TO TOUCHDOWN 


ON THIS PLAY SILICON COWBOYS CAN 
EITHER 1 - THROW 

2 - CARRY 
OR 3 - PUNT 

As you can see, the fact that you’ve thrown a given distance does 
not mean the play will automatically be complete. The chances of a 
play being complete are linked to the distance thrown. 

TOUCHDOWN I I 1 
TOUCHDOWN I I I 
TOUCHDOWN I I I 
TOUCHD OWN I I I 
TOUCHDOWN I I I 
SILICON COWBOYS 6 
HARTNELL'S RAIDERS 0 
TO PLAY FOR EXTRA POINT 
> PRESS ANY KEY < 


There is a lot of action in this simulation, and you’re sure to enjoy 
‘dressing it up’ some more. Here are a few additional scenes of the 
program in action: 
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AND RETURNED 27 YARDS 
AND RETURNED 28 YARDS 
AND RETURNED 29 YARDS 
AND RETURNED 30 YARDS 
AND RETURNED 31 YARDS 


THE BALL IS DOWN ON 

HARTNELL'S RAIDERS'S 44 YARD LINE 

> PRESS ANY KEY < 

OK 

PERIOD OVER 
PERIOD OVER 
PERIOD OVER 
PERIOD OVER 
PERIOD OVER 
PERIOD OVER 
PERIOD OVER 
PERIOD OVER 
PERIOD OVER 
PERIOD OVER 

SILICON COWBOYS 27 
HARTNELL'S RAIDERS 6 

> PRESS ANY KEY < 


PERIOD OVER 
PERIOD OVER 
PERIOD OVER 
PERIOD OVER 
PERIOD OVER 

SILICON COWBOYS 27 
HARTNELL'S RAIDERS 6 

> PRESS ANY KEY < 

OK 

15 MINUTES TO GO 


HARTNELL'S RAIDERS IN POSSESSION 
0 DOWN 

10 YARDS TO GO 
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START AT 44 YARD LINE 
NOW ON 44 YARD LINE 
56 YARDS TO TOUCHDOWN 


ON THIS PLAY HARTNELL'S RAIDERS CAN 
EITHER 1 - THROW 

2 - CARRY 
OR 3 - PUNT 

3 

4 

5 

6 

7 


GREAT RUNNING BY THE OPPOSITION HAS 
CAUSED YOU TO LOSE 3 YARDS 
> PRESS ANY KEY < 

OK 

GAME OVER 
GAME OVER 
GAME OVER 
GAME OVER 
GAME OVER 
GAME OVER 
GAME OVER 
GAME OVER 
GAME OVER 
GAME OVER 

SILICON COWBOYS 40 
HARTNELL'S RAIDERS 6 

The listing of Gridiron is in the next chapter: 
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Chapter Eighteen 
The Gridiron Listing 


When you want to become the whole Green Bay Packers team, the 
New York Jets or the Miami Dolphins, enter and run this listing: 

10 REM GRIDIRON 
20 C LS 

30 RANDOMIZE VAL(RIGHT$(TIME$,2)] 

40 GOSUB 70 
50 GOTO 220 

60 REM ************************ 

70 FOR X = 1 TO 1 5 0 0 t N EXT X 
80 RETURN 

100 PRINT A $;S A 
110 PRINT B$;SB 
120 RETURN 

130 REM ************************ 

140 IF Z$=A* THEN Z*=B$:RETURN 
150 Z$=A«:RETURN 

160 REM ************************ 

170 IF INKEY$<>"" THEN 170 

180 PRINT " > PRESS ANY KEY <" 

190 IF INKEY$="" THEN 190 

200 PRINT TAB(20] ; " OK " :RETURN 

210 REM ************************ 

220 REM INITIALIZE 

230 DEF FNA(X) = 1 NT(RND(1 )*X]+1 

240 PRINT "ONE PLAYER OR TWO" 

250 INPUT X 

260 IF X<1 OR X > 2 THEN 250 

270 IF X=1 THEN VC=1sA$="SILICON COWBOYS 
":G 0T 0 300 

280 PRINT "WHAT IS THE NAME OF THE HOME 
TEAM?" 


135 


290 INPUT A $ sIF A $ = " " THEN 290 

300 PRINT "AND THE NAME OF THE VISITING 

TEAM?" 

310 INPUT B $:IF B $ = " " THEN 310 
320 Z $ = A $:N U = 3 5 
330 CLS 

340 PRINT "THERE ARE"INT[10*(60-(W/4)))/ 
10 "MINUTES TO GO" 

350 PRINT T A B ( 8 ) 5 Z $ " TO KICK OFF" 

360 PRINT "YOU ARE ON YOUR OWN"NU”YARD L 
I NE” 

370 IF V C = 1 AND Z$=A$ THEN GOSUB 70:G0T0 
400 

380 PRINT "TO KICK OFF..." 

390 GOSUB 170 

400 A=FNA[20)+40 

410 PRINT Z$; " HAVE ..." 

420 FOR X = 1 TO A 

430 PRINT TAB[X/3)KICKED"X"YARDS" 

440 NEXT X 
450 N U = N U +X 
460 GOSUB 70 

470 PRINT "THE BALL IS CAUGHT!" 

480 GOSUB 70 
490 A = F N A[30]+1 0 
500 FOR X = 1 TO A 

510 PRINT TAB[X/5 ] ; " AND RETURNED»X"YARDS 

it 

520 NEXT X 

530 N U = A B S[1 OO-NU+X ] 

540 GOSUB 140 

550 PRINT "- 

_ii 

560 PRINT "THE BALL IS DOWN ON" 

570 PRINT Z$" , S"NU"YARD LINE" 

580 IF Z $ = A $ AND VC = 1 THEN GOSUB 70:G0T0 
60 0 

590 GOSUB 170 

600 T G = 1 0 :D = 0:SL = NU 

610 IF W = 60 OR W = 18 0 THEN 2010 

6 20 IF W = 1 2 0 THEN 2070 
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630 IF W = 2 4 0 THEN 2140 
640 CLS 

650 PRINT LEFT$(A$,6 ) ; SA;LEFT*(B$ , 6 ) ; SB 
660 PRINT I NT(10 *(60-(W/4)] )/10"MINUTES 
TO GO" 

670 GOSUB 70 

680 PRINT "--r- 

__ n 

690 PRINT Z$" IN POSSESSION" 

700 PRINT TAB[4);D"DOWN" 

710 PRINT TAB(4);TG"YARDS TO GO" 

720 PRINT "- 

_it 

730 PRINT "START AT"SL"YARD LINE" 

740 PRINT "NOW ON"NU"YARD LINE" 

750 PRINT 1OO-NU"YARDS TO TOUCHDOWN" 

760 PRINT "- 


770 

PRINT 

"ON 

THIS PLAY 

7 80 

IF Z$ 

= A $ 

THEN PRINT A$;" CAN":GOTO 8 

00 





790 

PRINT 

B»; 

" CAN" 


800 

PRINT 

"EITHER 1 - 

THROW" 

81 0 

PRINT 

n 

2 - 

CARRY" 

8 20 

PRINT 

ii 

OR 3 - 

PUNT" 

830 

P = 0 




840 

IF Z$ 

= A $ 

AND VC =1 

AND D < 3 THEN P = 2:G 

OTO 

90 0 




850 

IF Z$ 

= A $ 

AND VC =1 

AND T G < 7 THEN P = 2: 


GOTO 900 

860 IF Z $ = A $ AND VC=1 AND [100-NU]<31 TH 
EN P = 3:GOTO 900 

870 IF Z $ = A t AND VC = 1 THEN P = 1:G0T0 900 

880 K$=INKEY$:IF K$<"1" OR K*>"3" THEN 8 
80 

890 P = VAL(K$) :PRINT T A B [ 1 0 ) ; " 0 K " P 
900 GOSUB 70 
910 W=W+1 

920 CLS 

930 PRINT Z $; ", YOUR QUARTERBACK HAS" 

940 PRINT TAB(8);"G0T THE BALL" 
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950 PRINT "- 

___ n 

960 PRINT "WAIT FOR THE COUNT, ";Z$;"," 

970 PRINT TAB[8);"THEN HIT ANY KEY,,." 

980 IF INKEY$<>"» THEN 980 

990 GOSUB 70 

1000 GOSUB 2200 

1010 IF E = 11 THEN 2340 

1020 PRINT "- 

_ii 

1030 ON P GOTO 1050,1310,1590 
1 040 REM ************************ 

1050 PRINT "YOU'VE THROWN"E*5"YARDS" 

1 060 PRINT TAB(4) AND THE PLAY IS..." 

1 07 0 A = F N A(8] 

1 080 IF A = 1 THEN 1520 
1 090 A = F N A(E + 1 ] 

1100 IF A = 1 THEN PRINT TAB(20)i"...C0MPL 
ETE"s GOTO 122 0 

1110 PRINT TAB[20);"...INCOMPLETE":D=D+1 
1120 GOSUB 170 

1130 PRINT "- 

_ii 

1140 IF D >3 THEN 1160 
1150 GOTO 610 

1160 PRINT "THAT WAS YOUR 4TH DOWN" 

1170 PRINT "AND YOU'VE LOST POSSESSION!! 

it 

1180 D=0:TG=10:NU=ABS(100-NU]:SL=NU 

1190 GOSUB 70 

1200 GOSUB 140 

1210 GOTO 610 

1220 GOSUB 170 

1230 NU = NU+(E*5] :TG = T G-(E*5) 

1 240 IF N U >10 0 THEN 1800 
1250 IF T G <1 THEN 1280 
1 260 0=0 + 1 sIF D >3 THEN 1160 
1270 GOTO 610 
1 280 D = 0s TG = 10:SL = NU 
1290 GOTO 610 
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1300 REH ************************ 

1310 A = F NA(15) 

1320 IF A=1 THEN 1510 
1 330 E =A-5 

1 340 IF E < 0 THEN 1440 

1 350 IF E = 0 THEN E = 1:G0T0 1370 

1360 PRINT "GOOD SNAP, PASS AND RUN" 

1370 PRINT "YOU'VE GAINED"E"YARDS" 

1380 GOSUB 170 

1390 TG=TG-E:NU=ABS(NU+E):D=D+1 
1 400 IF N U >10 0 THEN 1800 
1410 IF T G <1 THEN 1280 
1 420 IF 0 >3 THEN 1160 
1430 GOTO 610 

1440 PRINT "GREAT RUNNING BY THE OPPOSIT 
ION HAS" 

1 450 PRINT "CAUSED YOU TO L0SE"ABS(E) " YA 
RDS" 

1460 TG=TG-E:NU=NU+E:D=D+1 
1470 GOSUB 170 
1 480 IF D >3 THEN 1160 
1490 GOTO 610 

1500 REH ************************ 

1510 PRINT "BAD SNAP . . .Y0U'VE " 

1520 PRINT "FUMBLED. ..AND" 

1530 PRINT "YOU'VE LOST POSSESSION..." 
1540 NU=1OO-NU:D=0sTG=10:SL=NU 
1550 REH ************************ 

1560 GOSUB 170 
1570 GOTO 460 

1580 REH ************************ 

1590 PRINT "NICE PUNT..." 

1 600 PRINT "YOU'VE KICKED"E* 4"YARDS" 

1610 NU=NU+E*4 
1 620 IF N U >100 THEN 1650 

1 630 PRINT "- 

_n 

1640 GOTO 460 
1 650 A = F NA(3) 

1 660 IF A >1 THEN 1740 

1 670 PRINT "BUT YOU'VE MISSED THE GOAL! I 

ii 
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1 680 IF NU-E*4<80 THEN N U = A B S l 1 0 0 - l N U - E * 
4 )):GOTO 1700 
1 690 N U = 2 0 

1 700 D = 0:T G = 10:SL=NU 
1710 GOSUB 140 
1720 GOSUB 170 
1730 GOTO 610 

1 740 PRINT ".AND SCORED!" 

1750 IF Z$=B$ THEN SB=SB+3:G0T0 1770 

1 760 S A = S A + 3 

1770 GOSUB 100 

1780 GOSUB 170 

1 7 90 N U = 3 5:GOTO 330 

1800 CLS 

1810 FOR X = 1 TO 5 

1 820 PRINT TAB(X*2 ) ;"TOUCHDOWN I I I " 

1830 NEXT X 

1 840 IF Z $ = A $ THEN SA=SA+6:G0T0 1860 
1850 S B = S B + 6 
I860 GOSUB 100 

1870 PRINT "TO PLAY FOR EXTRA POINT" 

1880 GOSUB 170 

1890 PRINT "- 

_ ___ it 

1 900 PRINT "THE BALL IS SNAPPED . . .PREPAR 
E TO KICK!" 

1910 GOSUB 70 
1920 GOSUB 2200 

1930 IF E > 9 THEN PRINT "YOU MISSED":NU = 2 
0 :GOTO 1970 

1 940 PRINT "YOU SC0RED. . . " : NU = 35 

1950 IF Z$=A$ THEN SA=SA+1:GOTO 1980 

I 960 S B = S B + 1 s G OT 0 1980 

1970 GOSUB 140 

1980 GOSUB 100 

1 990 GOSUB 1 70 

2000 GOTO 330 

2010 FOR X = 1 TO 10 

2020 PRINT TAB(2*X) {"PERIOD OVER" 

2030 NEXT X 
2040 GOSUB 100 
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2050 GOSUB 170 

2060 GOTO 660 

2070 FOR X=1 TO 10 

2080 PRINT TAB(2*X);"HALF TIME" 

2090 NEXT X 
2100 GOSUB 100 
2110 2 $ = B $ 

2120 GOSUB 170 

2130 NU=35:W=W+2sGOTO 330 

2140 FOR X=1 TO 10 

2150 PRINT TAB[2*X) ; "GAME OVER" 

2160 NEXT X 
2170 GOSUB 100 
2180 END 

2190 REM ************************ 

2200 E=0:X=10 

2210 IF Z $ = A $ AND VC = 1 THEN PRINT "THIS 

ONE FOR ";A $:G 0 T 0 2290 

2220 E=E+1:X=X-1 

2230 PRINT TAB(E) ; E 

2240 FOR Y = 1 TO X*1 . 5 

2250 IF INKEY$<>"" THEN Y = X*1 . 5 + 1 :RETURN 
2260 NEXT Y 

2270 IF E = 11 THEN RETURN 

2280 GOTO 2220 

2290 FOR E=1 TO FNA(7)+2 

2300 FOR J=1 TO 60:NEXT J 

2310 PRINT TAB(E) ; E 

2320 NEXT E 

2330 RETURN 

2340 PRINT "TOO LATEI" 

2350 PRINT "YOU'VE BEEN SACKEDI" 

2360 E = F NA(4) 

2370 IF E = 3 THEN 2430 

2380 PRINT "AND LOST FIVE YARDSI" 

2390 TG = TG + 5 sD=D + 1 :NU = NU-5 
2400 GOSUB 170 
2410 IF D >3 THEN 1160 
2420 GOTO 610 

2430 PRINT "AND LOST POSSESSION!" 
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2440 D = 0:N U = A B S ( 100-NU + 5) sSL = NU:TG = 10 
2450 GOSUB 170 
2460 GOSUB 140 
2470 GOTO 610 
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Chapter Nineteen 
The Grand Slam 


In this sports simulation, you have a chance to play a three-set 
game of tennis against your computer. If you prefer, you can play 
against another human being, with the simulation reporting on, 
and moderating, the action. 

Tennis got underway in England in the middle of the last century. 
By 1877 it was such a popular game, that a national championship at 
Wimbledon was staged. There is a maximum of five sets in a match 
for men, and three for women, with a minimum of six games per 
set. You need to lead by two in order to win a set. 

The simulation calls on your decision-making skill and tests your 
reflexes. Your first decision is the speed of your serve. If you elect to 
play against the computer, it will always serve first, in order to 
allow you to see it in action. You’ll learn more about the simulation 
from watching the computer serve than from reading this 
introduction. 

The simulation is weighted so that fast serves have a better chance 
of an ace than do slow serves, but there is also a greater chance of a 
fault. Slow serves will rarely give an ace, but as well are unlikely to 
fault. 

After service, the simulation calls on your reflexes. The screen 
clears and indicates whose court the ball is in. After a brief pause, 
the computer will begin a countdown to -1. To hit the ball, you 
need to wait until the count reaches zero, and then press any key. 

If you ‘swing’ too soon or too late, you’ll miss the ball and the 
computer will tell you whether the ball was in or out of play. Note 
that you can choose to leave a ball, if you think it is going to go out. 
If you ‘hit’ the ball, by striking a key just as the count reaches zero, 
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the screen will clear and show the ball in the other player’s court. 
This process continues until one player or the other misses the ball. 

The program begins by asking you whether there will be one 
human player or two. If there is only one, it will ask for the player’s 
name with the prompt NAME OF SECOND PLAYER?: 

ONE HUMAN PLAYER OR TWO? 1 
NAME OF SECOND PLAYER? TIMOTY 

This simulation needs names which are six letters long. If you enter 
a longer name, the computer will cut it down to size. The computer 
player’s name, as you’ll see in a moment, is ‘Bjornx’. The match 
begins as Bjornx serves: 

BJORNX SERVING 

DO YOU WANT TO SERVE 1 - FAST 

OR 2 - SLOW 

1 > IT'S A FAST SERVE . . . 

Bjornx elects for a fast serve, and the mere human must attempt 
to return it: 

TIMOTY, THE BALL IS 
IN YOUR COURT 


HIT ANY KEY, WHEN YOU SEE THE ZERO, 

TO RETURN THE BALL. . . 

5 

4 

3 

2 

1 

YOU MISSED THE BALL, AND... 

IT WAS IN. ..BAD MISTAKE 

Unfortunately, Timoty is not playing with his usual fine form. The 
score is shown, before Bjornx serves again: 
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SET 

SET 

SET 



1 

2 

3 

GAME 

BJORNX 

0 

0 

0 

30 

TIMOTY 

0 

0 

0 

0 

BJORNX 

SERVING 




DO YOU 

WANT TO 

SERVE 1 

- FA 


OR 2 - SLOW 

1 > IT'S * FAST SERVE . . . 

The scoring system of our simulation follows the real game, with a 
minimum of four points needed to win a game: 15,30,40 and game. 
If both sides score 40, ‘deuce’ is declared, and the first player to 
score a point is said to have the ‘advantage’. A further point is 
needed to win. If the opponent gets a point, instead of the player 
with the ‘advantage’, the score returns to ‘deuce’. Of course, you do 
not have to worry about this scoring system, as the computer 
obligingly keeps track of everything for you. 

Here are a few more ‘snapshots’ of the game in progress: 

GAME TO BJORNX 


— 

SET 

1 

SET 

2 

SET 

3 

GAME 

BJORNX 

1 

0 

0 

0 

TIMOTY 

0 

0 

0 

0 


TIMOTY SERVING 

DO YOU WANT TO SERVE 1 - FAST 

OR 2 - SLOW 

1 > IT'S A FAST SERVE.. . 
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■ ■ ■ ■ 

OUT 

■ ■ ■ ■ 



...SECOND SERVE 

■ ■ ■ 

TIMOTY 

SERVING 




DO YOU 

WANT TO 

SERVE 1 

- FAST 




OR 2 

- SLOW 

2 

! > IT • S 

A 

SLOW 

SERVE... 


SET 

SET 

SET 



1 

2 

3 

GAME 

BJORNX 

6 

0 

0 

0 

TIMOTY 

1 

0 

0 

40 

TIMOTY 

SERVING 




DO YOU 

WANT TO 

SERVE 1 

- FAST 




OR 2 

- SLOW 

2 

> IT'S 

A 

SLOW 

SERVE . e . 


SET 

SET 

SET 



1 

2 

3 

GAME 

BJ OR NX 

6 

0 

0 

1 5 

TIMOTY 

1 

1 

0 

0 

B JORNX 

SERVING 




DO YOU 

WANT TO 

SERVE 1 

- FAST 




OR 2 

- SLOW 

1 

> IT'S 

A 

FAST 

SERVE .. . 


It appears that the human race is no match for the mighty 
computer: 
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SET 

SET 

SET 



1 

2 

3 

GAME 

BJORNX 

6 

4 

0 

30 

TIMOTY 

1 

2 

0 

40 

TIMOTY 

SERVING 




DO YOU 

WANT TO 

SERVE 1 

- FAST 




OR 2 

- SLOW 

2 

> IT'S 

A 

SLOW 

SERVE. . 


SET 

SET 

SET 



1 

2 

3 

SAME 

BJORNX 

6 

4 

0 

{DEUCE 

TIMOTY 

1 

2 

0 

{DEUCE 


SET 

SET 

SET 



1 

2 

3 

GAME 

BJORNX 

6 

6 

6 

0 

TIMOTY 

1 

4 

4 

0 
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Chapter Twenty 
The Tennis Listing 


When you’re ready to take on Bjornx for a set or two, enter and run 
the following listing: 

10 REM TENNIS 
20 C LS 

30 RANDOMIZE VALlRIGHT$(TIME$ , 2) ) 

40 AA = 0 : BB = 0:T = 0:KA = 0 

50 XA=0:YA=0:ZA=0 

60 XB=0:YB=0:ZB=0 

70 DEF FNA(X)=1 NT(RND(1 )*X)+1 

80 INPUT "ONE HUMAN PLAYER OR TW0";A 

90 IF A <1 OR A > 2 THEN 80 

100 IF A = 1 THEN A $ = "BJ0RNX"sVC=1 

110 IF VC=1 THEN 160 

120 PRINT "PLEASE ENTER A SIX-LETTER NAM 
E " 

130 INPUT "NAME OF FIRST PLAYER"; A $ 

140 IF LEN(A$)<6 THEN A$=A$+" ":G0T0 140 

150 A$=LEFT$(A*,6) 

160 INPUT "NAME OF SECOND PLAYER" ; B $ 

170 IF L E N(B $) <6 THEN B$ = B$ + " "sGOTO 170 

180 B$=LEFT$(B$,6) 

190 S = 1 : A A = 1 : B B = 1 
200 CLS 

210 P$=A$:R$=B$ 

220 REM ****************************** 

230 IF P $ = A * THEN R$ = B$ 

240 IF P $ = B $ THEN R $ = A $ 

250 PRINT P $}" SERVING" 

260 PRINT "DO YOU WANT TO SERVE 1 - FAST 
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270 

n 

PRINT " 


OR 2 - 

SLOW 

280 

I F 

P $ = A $ AND 

VC=1 AND 

S C = 0 THEN 

K B = 1 

: GOSUB 

1 7 20 s GOTO 

330 



290 

I F 

P $ = A $ AND 

VC=1 AND 

SC=1 THEN 

K B = 2 

: GOSUB 

1 7 20 s GOTO 

330 



300 

K $ = 

INK EY $ 




31 0 

IF 

K$<"1" OR 

K $ >"2" THEN 300 


320 

K B = 

V A L ( K $ ] 





330 PRINT{PRINT TAB(6] }KB{TAB(1 0 ) ; "> IT' 


S A 

ft . 

V 




340 

IF 

w 

II 

m 

THEN 

PRINT "FAST"; 

350 

I F 

K B = 2 

THEN 

PRINT "SLOW"; 

360 

PRINT " 

SERVE..." 

370 

GOSUB 1720 


380 

IF 

II 

00 

THEN 

E B = F N A(3) :GOTO 400 

3 90 

EB 

= F N A ( 8 ] 


400 

IF 

II 

CO 

UJ 

THEN 

450 

41 0 

I F 

00 

II 

GO 

LU 

AND 

SC = 0 THEN 520 

420 

IF 

E B = 3 

AND 

SC=1 THEN 590 


430 GOTO 670 

440 REM ****************************** 
450 C LS:P RI NT 

460 PRINT TAB(8.ACE " 

470 GOSUB 1720 
480 SC=0 

490 IF P $ = A $ THEN 1140 
500 GOTO 1150 

510 REM ****************************** 
520 CLSsPRINT 

530 PRINT TAB(12];".... OUT .... " 

540 PRINT TAB(8]}"... SECOND SERVE..." 

550 GOSUB 1720 

560 SC=1 

570 GOTO 230 

580 REM **************4*************** 
590 CLSsPRINT 

600 PRINT TAB(12];".... OUT_." 

610 PRINT TAB(9] } " . . . .DOUBLE FAULT..." 
620 GOSUB 1720 
630 SC=0 
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640 IF P $ =A $ THEN 1150 
650 GOTO 1140 

660 REM ****************************** 

670 SC=0 

680 CLS:PRINT 

690 IF INKEY$<>"" THEN 690 

700 PRINT R$j", THE BALL IS":PRINT "IN Y 
OUR COURT" 

710 PRINT "-" 

720 IF R $ =A $ AND VC = 1 THEN 750 
730 PRINT "HIT ANY KEY, WHEN YOU SEE THE 
ZERO, TO RETURN THE BALL..." 

740 IF INKEYSO"" THEN 740 
750 X=4*FNA(3):Y=X 
760 GOSUB 1720 
770 E = 5 

7 80 PRINT TAB(2*(11-E) ) ; E 

7 90 Y = Y-1 

800 S$=INKEY$ 

810 IF S$<>"" AND E = 0 THEN 890 

820 IF S$<>"" THEN 990 

830 IF Y >0 THEN 790 

840 E = E-1 sY=X 

850 IF E <-1 THEN 990 

860 IF E = — 1 AND R $ =A t AND VC = 1 THEN 890 
870 GOTO 780 

880 IF K B = 1 THEN EA = FNA(2) :GOT0 1000 
890 EA=FNA(4) 

900 IF E = 0 AND R$=A$ AND VC=1 THEN EA = F N 
A ( 8 ) 

910 IF EA = 1 THEN 940 

920 IF R $ = A $ THEN R $ =B $:GOT 0 670 

930 R$=A$:GOTO 670 

940 PRINT R $}", YOU'VE HIT THE BALL" 

950 PRINT TAB(8) OUT OF PLAY..." 

960 GOSUB 1720 

970 IF R$=A$ THEN R$=B$sGOTO 1150 
980 GOTO 1140 
990 EA=FNA(4] 

1 0 00 IF EA = 1 THEN 1070 

1010 PRINT "YOU MISSED THE BALL, AND..." 
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1020 60SUB 1720 

1030 PRINT " IT WAS IN...BAD MISTAKE" 
1040 GOSUB 1720 

1 0 50 IF R $ = A $ THEN R$ = B$:GOTO 1150 
1060 GOTO 1140 

1070 PRINT "YOU MISSED THE BALL AND..." 
1080 GOSUB 1720 

1090 PRINT " IT WAS OUT..WELL LEFT" 
1100 GOSUB 1720 

1110 IF R$=A$ THEN R$=B$:GOTO 1140 
1120 GOTO 1150 

1130 REM ****************************** 
1140 AA = AA +1 s GOTO 1160 
1150 B B = B B +1 


1160 

IF AA < 5 

AND 

B B < 5 THEN 

1230 


1170 

IF (BB >4 

AND AA < 4) OR 

(B B >4 AND 

BB 

A A > 1 ] 

THEN AA 

= 1 : 

B B = 1 s GOTO 1500 


1180 

IF (A A > 4 

AND B B < 4] OR 

(AA >4 AND 

AA 

BB >1 ) 

THEN AA 

= 1 : 

B B = 1 :GOTO 1440 


1 1 90 

IF AA >4 

AND 

AA > B B THEN 

C $ = " A D V " 

: D $ 

M_II 

s GOTO 1320 




1200 

IF BB >4 

AND 

B B >A A THEN 

D $ = " A D V " 

: C $ 

n_ii 

: GOTO 1320 




1 21 0 

C$ = " {DEUCE" 

!D * = " {D EUCE 

":GOTO 1320 

1220 

pgty ****************************** 

1 230 

RESTORE 





1 240 

FOR D = 1 

TO 

AA 



1250 

READ C$ 





1 260 

NEXT D 





1 270 

RESTORE 





1 280 

FOR D =1 

TO 

BB 



1 290 

READ D $ 





1300 

NEXT D 





1 31 0 

REM *♦♦*********************** * 

* * * 

1 320 

C LS 





1330 

PRINT "- 

— 


_ _ _ ii 


1 340 

PRINT " 


SET 

SET SET" 


1350 

PRINT "- 

— 


II 


1360 

PRINT " 


1 

2 3 GAME 

1370 

PRINT A $ 

. n 

9 

" 5 X A 5 " 

n • Y A ■ 11 »» ■ 

f 1 M 9 9 

ZA; 


" 5 C $ 
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1380 PRINT B $;" " ; X B ; " " ;Y B ; " " ; Z B ; " 

" ; D * 

1390 PRINT "-" 

1400 GOSUB 1720 
1410 IF T < >1 THEN 230 
1 420 END 

1430 REM ****************************** 
1440 CLS 

1 450 PRINT "GAME TO " jA $ 

1460 GOSUB 1720 

1 470 IF S = 1 THEN XA = XA + 1 sC$ = "0":D$ = "0" : G 
OTO 1560 

1 480 IF S = 2 THEN YA = YA+ 1 sC$ = "0"sD$ = " 0 " ! G 
OTO 1580 

1 490 IF S = 3 THEN ZA = ZA + 1 :C$ = "0"sD$ = "0 " : G 
OTO 1600 
1500 CLS 

1510 PRINT "GAME TO ";B$ 

1520 GOSUB 1720 

1530 IF S=1 THEN XB=XB+1:C$="0"sD$="0":G 
OTO 1560 

1540 IF S=2 THEN YB=YB+1:C$="0":D$="0":G 
OTO 1580 

1 550 IF S = 3 THEN ZB = ZB+ 1 ;C$ = "0":0 $ = " 0 " sG 
OTO 1600 

1 56 0 IF (XA >5 AND XB<5] OR (XA<5 AND XB> 
5] THEN 1630 

1 570 IF (XA >5 AND XA-XB>1) OR (XB>5 AND 
XB-XA >1 ) THEN 1630 

1 580 IF (Y A > 5 AND YB<5) OR (YA<5 AND Y B > 
5) THEN 1630 

1 590 IF (Y A >5 AND Y A-Y B <1 ] OR (YB>5 AND 
YB-YA>1) THEN 1630 

1 600 IF (ZA >5 AND ZB<5) OR (ZA<5 AND ZB> 
5) THEN 1680 

1610 IF (ZA >5 AND ZA-ZB>1) OR (ZB>5 AND 
ZB-ZA >1 ) THEN 1680 
1620 GOTO 1640 
1630 S=S+1 

1 640 AA = 1 :B B = 1 

1 650 IF P $ = A $ THEN R$=A$:P* = B$:GOTO 1320 
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1660 P$=A$:R$=B$:G0T0 1320 

1670 REM ****************************** 
1 680 T = 1 
1 6 90 GOTO 1 320 

1700 REM ****************************** 
1710 REM DELAY 

1 720 FOR M = 1 TO 1 0 00 :NEXT M 
1730 RETURN 

1 740 DATA "0" , "15” , "30","40" 
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Chapter Twenty-One 
Driving A Racing Car 


Now you have the chance to drive a simulated racing car around 
your choice of four of the world’s greatest Grand Prix circuits. 
You, too, can be a hero on the British course known as ‘The 
Whale’; at Germany’s ‘The Key’; on the Italian track called ‘The 
Shoe’; or at Monaco on the 3100 metre track. 

The program begins by getting your name, and wishing you luck, 
before asking you which track you wish to try, and how many laps 
the race will be over: 

WHAT IS YOUR NAME, DRIVER? HARTNELL 

OK, GOOD LUCK, HARTNELL 

OK, GOOD LUCK, HARTNELL 

OK, GOOD LUCK, HARTNELL 

************************************* 

WHICH RACE DO YOU WANT TO TAKE PART IN: 

BRITISH GRAND PRIX 2650MT si 

GERMAN GRAND PRIX 1700MT :2 

ITALIAN GRAND PRIX 2200MT :3 

MONACO GRAND PRIX 3100MT :4 

ENTER A NUMBER (1 TO 4] 
************************************* 

OK f THE BRITISH RACE 
************************************* 

OVER HOW MANY LAPS? 

? 1 

The aim of the simulation, naturally enough, is to complete the 
race as quickly as possible, without crashing and without 
overheating either your engine or brakes. 
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You start the race in position six. On the British circuit, you start 
the simulation at 140 kilometres an hour, just under the speed 
recommended for the approaching corner. To increase your speed, 
you hit the “M” key. The “Z” will slow you down, and the space 
bar enables you to maintain the same speed. A few seconds after 
the simulation begins, the screen looks like this: 


ENGINE TEMPERATURE 
BRAKE TEMPERATURE: 
DISTANCE COVERED : 

YOU'RE IN POSITION 


100 C. [MAX . 200 ) 

10C. (MAX . 500 1 

0 METERS 
0 LAPS 
6 


CURRENT SPEED: 140 KPH 

: 77.7 METERS PER MOVE 


CORNER APPROACHING 800 METERS 
RECOMMENDED SPEED: 150 KPH 


The simulation run began with the first corner 800 metres away. 
This has now shrunk to just 57 metres, and I’ve increased my speed 
to 148 kph, just below the recommended speed for taking that 
corner of 150 kph. The engine has warmed up slightly (but still a 
long, long way away from the maximum of 200), and the 
temperature of the brakes has gone up from 10 degrees to nearly 55. 


ENGINE TEMPERATURE 
BRAKE TEMPERATURE: 
DISTANCE COVERED: 


104.6 C. (MAX. 200) 
54.7 C. (MAX . 500 ) 

742.2 METERS 
.28 LAPS 


YOU'RE IN POSITION 6 


CURRENT SPEED : 148 KPH 

: 82.2 METERS PER MOVE 


CORNER APPROACHING 57 METERS 
RECOMMENDED SPEED: 150 KPH 


I safely negotiate that corner, but find that I have, perhaps, been a 
bit too cautious, as with just under half of the one lap race 
completed, I am now in position seven (after starting in position 
six): 
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ENGINE TEMPERATURE 87.1 C. (MAX. 200) 
BRAKE TEMPERATURE; 157.3 C. (MAX. 500) 
DISTANCE COVERED; 1102 METERS 

; .41 LAPS 

YOU'RE IN POSITION 7 


CURRENT 

SPEED s 

■ 

• 

1 1 2 

6 2 . 

.3 KPH 

3 METERS PER MOVE 

CORNER APPROACHING 

97 

METERS 

RECOMMEND ED 

SPEED s 

90 

KPH 


I am just 97 metres from the next corner, where the recommended 
cornering speed is 90 kph. I’m doing just over 112 kph. Frantically, 
I slam on the brakes, hitting hell out of the “Z” key. But it is too 
late: 

YOU CORNERED AT 104.8 KPH 

AND THE MAXIMUM SPEED WAS JUST 90 

YOU SPIN OFF THE TRACK... 

.AND CRASH!!!!! 


YOU ONLY COMPLETED 1218.4 METERS, 
OR .45 LAPS AND AT THAT 
STAGE WERE IN POSITION 7 


YOUR AVERAGE SPEED WAS 137.07 KPH 
YOU WERE 2 TH FASTEST ON STRAIGHTS, 

AND 12 TH FASTEST ON CORNERS. 

PRESS 'S' FOR SAME RACE, 'N' FOR NEW 
RACE, 'E• TO END 

I was in seventh position when the race ended. The final screen tells 
me my average speed was a shade over 137 kph, I was second fastest 
on the straights, and only twelfth fastest on the corners. 

As you can see, you are given the choice of running the same race 
again (by pressing “S”), choosing a new race (“N”) or ending the 
simulation (“E”). 

I press “N” and decide on the German circuit: 
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************************************* 
WHICH RACE DO YOU WANT TO TAKE PART IN: 

BRITISH GRAND PRIX 2650MT :1 

GERMAN GRAND PRIX 1700MT :2 

ITALIAN GRAND PRIX 2200MT :3 

MONACO GRAND PRIX 3100MT :4 

ENTER A NUMBER (1 TO 4] 
************************************* 

OK, THE GERMAN RACE 
************************************* 

OVER HOW MANY LAPS? 

? 1 

This time, I take fewer risks, and am soon on my way to completing 
the circuit without mishap: 

ENGINE TEMPERATURE 117.5 C. (MAX. 200) 
BRAKE TEMPERATURE: 34.5 C. (MAX. 500) 
DISTANCE COVERED: 1424.3 METERS 

: .83 LAPS 

YOU'RE IN POSITION 27 


CURRENT 

SPEED s 

1 1 6 

.3 KPH 


: 

64 . 

6 METERS PER MOVE 

CORNER APPROACHING 

75 

METERS 

RECOMMENDED 

SPEED s 

200 

KPH 


A few moments later, and I’ve done it: 


WELL DONE, HARTNELL I I 


YOU MANAGED TO LAST OUT THE FULL 
1 LAP RACE . . . 


The main value of this simulation, apart from that of its high 
entertainment potential, is showing how constraints and facts of 
‘real life’ (such as the engine speed maximum, and the data on each 
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track) can be encoded into a program. You can also see the use of 
formulae to link the various outputs together (such as lines 370 and 
380 which work out how far you have travelled, by converting your 
speed - in kilometres per hour - into metres) in a realistic way. 

Note also that lines 320 and 330, which act on your wishes to speed 
up or slow down, add or subtract a value which is related to the 
actual speed you are travelling. This means you can brake more 
dramatically when you are moving quickly than you can when 
moving slowly. Using a value which is related to current speed also 
overcomes the realism-destroying practice of just changing the 
current speed by a fixed value (such as 3.5, which I used in the first 
version of this program) each time a key is pressed. 

YOU FINISHED IN 30 POSITION, 

AFTER STARTING IN 6 T H POSITION... 

YOUR AVERAGE SPEED WAS 100.38 KPH 
YOU WERE 14 TH FASTEST ON STRAIGHTS, 

AND 47 TH FASTEST ON CORNERS. 

PRESS 'S' FOR SAME RACE, 'N' FOR NEW 
RACE, 'E' TO END 

The Tracks 

Here are the four Grand Prix circuits which are encoded within the 
program. 



GERMAN GRAND PRIX - 1700 metres - 



ITALIAN GRAND PRIX - 2200 metres - ‘The Shoe’: 


800 Metres 



MONACO GRAND PRIX - 3100 metres 
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Chapter Twenty-Two 
The Grand Prix Listing 


Take a firm grip on the wheel, and tackle the grand prix circuit with 
this listing: 

10 REM GRAND PRIX 
20 GOSUB 2 2 0 0 :R E M INITIALIZE 
30 GOSUB 1190:REM CHOOSE TRACK 
40 REM ************************* 

50 REM MAJOR LOOP 

60 GOSUB 12 0 : R E M PRINTOUT 

70 GOSUB 2 8 0 : R E M ACCELERATI 0N/CHECK 

80 GOSUB 45 0 :R E M ENGINE/BRAKES 

90 GOSUB 5 0 0 : R E M C0RNER/P0SITI 0N 

100 GOTO 60 

110 REM ************************* 

120 REM PRINTOUT 
130 CLS 

140 PRINT "ENGINE TEMPERATURE"INT(ENG*10 
)/10"C. (MAX . 200 )" 

150 PRINT "BRAKE TEMPERATURE:"INT[BRAK*1 
0)/10" C. [MAX. 5001 " 

160 PRINT " DISTANCE COVERED:"INT(DIST*1 
01/10"METERS" 

170 PRINT " :"INT(DIST*1 

OO/RR1/100"LAPS" 

180 PRINT "YOU'RE IN POSITION"INT(FP) 

190 PRINT "- 


200 PRINT " CURRENT SPEED:"INT(SPEED* 

1 0 ] / 1 0 " K P H " 

210 PRINT " :"INT(SPEED* 

5.5551/10"METERS PER MOVE" 

220 PRINT "- 
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230 PRINT "CORNER APPROACHING"INT[APP]"M 
ETERS " 

240 PRINT "RECOMMENDED SPEED : "C[C ) " K P H " 
250 PRINT "- 


260 RETURN 

270 REM ************************* 

280 REM CHECK ACCELERATION AND FACTORS 
290 X$ = INKEY$;IF X $ < > » Z" AND X $ < > " M " AND 
X$<>» " THEN 290 

300 PRINT T A B(12 ) ;"0K" 

310 X = 0 

3 20 IF X $ = "M" THEN X=SPEED/15 

330 IF X $ = " Z " THEN X = -SPEED/15 

340 NUM=NUM+1:REM NUMBER OF MOVES 

350 SPEED=SPEED+X 

36 0 IF S P E E D < 0 THEN SPEED = 0 

370 TRAV=SPEED*.5555:REM DISTANCE 

TRAVELLED 

380 DIST=DIST+TRAVsREM TOTAL DISTANCE 

TRAVELLED 

3 90 ENG = ENG+[X/2) + . 07sIF ENG<70 THEN ENG 
=70+RND[1]*8:REM ENGINE TEMP 
400 IF X>0 THEN BRAK=BRAK* .9:REM BRAKE 
TEMP FALLING; ACCELERATING 
410 IF X<1 THEN B R A K = B R A K - ( 3 * X ) - R N D ( 1 ) * 3 
:REM BRAKE TEMP INCREASING; BRAKING 
420 IF B R A K < 8 THEN BRAK = 8 + RND(1 ] * 8 
430 RETURN 

440 REM ************************* 

450 REM CHECK ENGINE/BRAKE TEMP 

460 IF E N G > 2 0 0 THEN PRINT "YOUR ENGINE H 

AS OVERHEATED":GOTO 830 

470 IF BRAK >500 THEN PRINT "YOUR BRAKES 
HAVE OVERHEATED";GOTO 830 
480 RETURN 

490 REM ************************* 

500 REM CHECK CORNERING SPEED 
AND FIELD POSITION 
510 APP=APP-TRAV 
520 IF A P P > 0 THEN RETURN 
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530 C R A S H = 0 

540 IF SPEED>(C(C ] *1 .125 ] THEN CRASH = 1:G 
0T0 690 

550 IF SPEED>(C(C)*1.1) THEN GOTO 690 
56 0 PNT = PNT + 100-( [C(C)*1 .1 )-SPEED) : REH C 
ORNERING POINTS 

570 NC=NC+1:REM NUMBER OF CORNERS 
580 CP=96-(PNT/NC):REM CORNERING 

POSITION 

590 AM=AM+A(C]:REM AVERAGE NUMBER 

OF MOVES ALLOWED 

600 RP=NUM-AM:REM RACING POSITION: YOUR 
MOVES MINUS AVERAGE MOVES 
610 FP=(CP+RP]/2:REM FIELD POSITION IS 
AVERAGE OF CORNER & RACE POSITIONS 
620 IF F P <1 THEN FP = 1 
630 C=C+1 

640 IF C=WW THEN C=1:REM LAP OVER 
650 APP=APP+D(C) 

660 IF LA P * 0 Q = A M THEN 910:REM RACE OVER 
670 RETURN 

680 REM ************************* 

690 REM CRASHED 
7 0 0 CLS 


71 0 

PRINT 

"YOU 

CORNERED 

AT 

" I N T ( 1 0 

♦SPEED ] 

/I 0 

"KPH" 






7 20 

PRINT 

"AND 

THE MAXIMUM 

SPEED 

WAS JUS 

T " C ( C ] 






7 30 

GOSUB 

23 30 





740 

PRINT 

"YOU 

SPIN OFF 

THE TRACK 

• ■ ■ 

750 

GOSUB 

23 30 





760 

IF C R A S H = 1 

THEN 830 




770 

PRI NT 

"YOU 1 

' VE LOST 

20 

SECONDS 

, BUT Y 


OU'RE ABLE TO REJOIN THE RACE" 

780 NUM=NUM+10:SPEED=INT[2*C(C]/3l 
790 PNT=PNT+50 
800 GOSUB 2330 
810 GOTO 570 

820 REM ♦♦♦♦♦♦♦♦♦♦♦♦*♦*♦*♦♦*♦♦*♦* 

830 PRINT ".AND CRASH! III!" 

840 PRINT "- 
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850 PRINT "YOU ONLY COMPLETED"INT(10*DIS 
TJ/10"METERS," 

860 PRINT "OR"INT[DIS T *100/RRJ/100"LAPS 
AND AT THAT" 

870 PRINT "STAGE WERE IN POSITION"INT(FP 

] 

880 PRINT "- 


890 GOTO 1050 

900 REM ************************* 

910 REM RACE OVER 
920 CLS 
930 E F L A G = 1 
940 FOR X=1 TO 20 

950 PRINT TAB(X) ;"WELL DONE, " j A * ; " I ! " 
960 PRINT T A B ( 2 1 - X ) ;"WELL DONE, ";A$;"!I 

ii 

970 NEXT X 

980 PRINT "- 


990 PRINT "YOU MANAGED TO LAST OUT THE F 
U LL "LAP"LAP RACE " 

1000 PRINT "- 


1010 GOSUB 2330 

1020 PRINT "YOU FINISHED IN POSITION"INT 
[FP) 

1030 PRINT "AFTER STARTING IN 6 T H POSITI 
ON..." 

1040 GOSUB 2330 

1050 PRINT "YOUR AVERAGE SPEED WAS"INT(D 
I S T * 180/NUM)/100"KPH" 

1060 GOSUB 2330 
1 070 IF R P <1 THEN RP = 1 
1080 IF CP<1 THEN CP=1 

1 090 PRINT "YOU WERE"I NT(ABS(RP) ) "TH FAS 
TEST ON STRAIGHTS," 

1100 PRINT "AND"INT(ABS(CP] ) "TH FASTEST 
ON CORNERS." 

1110 PRINTiPRINT "PRESS 'S' FOR SAME RAC 
E, 'N' FOR NEW RACE, 'E' TO END" 


164 








1120 I$ = INKEY$:IF I $ < >" S " AND I$<>''N" AN 
D I $ < > " E " THEN 1120 


1130 

IF I $ = " E 11 THEN 

END 



1140 

GOSUB 2240 




1150 

RESTORE 




1160 

IF I $ = " S " THEN 

GOSUB 1490 

s LAP = L2AP 

GOTO 

60 




1170 

IF I $ = " N " THEN 

CLS s 

GOSUB 

1 250 s GOTO 

60 





1180 

REM *************** 

****** 

* * * * 

1190 

REM NAME AND TRACK 

DATA 


1200 

$ 

INPUT "WHAT IS 

YOUR 

NAME v 

DRIVER"; 

1 21 0 

PRINT 




1220 

FOR X = 1 TO 3 





1230 PRINT T A B [ 4 * X ];"0K f GOOD LUCK, ";A$ 
1240 GOSUB 2330:NEXT X 

1250 PRINT n**************************** 

********* ii 

1260 PRINT "WHICH RACE DO YOU WANT TO TA 
KE PART IN:" 


1 270 

PR I NT 






128 0 

PRINT 

TAB(7] 

;"BRITISH 

GRAND 

PRIX 

2 

650MT 

s 1 " 






1290 

PRINT 

TAB(7] 

; " G E R M A N 

GRAND 

PRIX 

1 

7 0 0 MT 

s 2 " 






1300 

PRINT 

TAB(7] 

;"ITALIAN 

GRAND 

PRIX 

2 

200 MT 

S 3 " 






1310 

PRINT 

TAB(71 

; " M 0 N A C 0 

GRAND 

PRIX 

3 


1 0 0 M T : 4 " 

1320 PRINT 

1330 PRINT T A B[7 ] ;"ENTER A NUMBER (1 TO 
4] " 

1340 K$=INKEY$ 

1350 IF K $ <"1 " OR K $ > " 4" THEN 1340 
1360 GP=VAL(K$) 

1370 PRINT "**************************** 

********* ii 

1380 PRINT TAB(8);"0K, THE "; 

1390 IF GP = 1 THEN PRINT "BRITISH" ; 
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1400 IF G P = 2 THEN PRINT "GERMAN"; 

1410 IF G P = 3 THEN PRINT "ITALIAN"; 

1420 IF G P = 4 THEN PRINT "MONACO"; 

1430 PRINT " RACE" 

1440 PRINT ... 

*###**#**n 

1450 PRINT:PRINT "OVER HOW MANY LAPS?" 
1460 INPUT LAP:IF LAP<1 THEN 1460 
1 470 LAP = INT(LAP+. 5) :L2AP = LAP 
1480 REM ************************ 

1490 REM BRITISH DATA 
1500 SPEED=140 
1510 FOR X = 1 TO 9 

1 520 READ D[X] :R E M DISTANCE BETWEEN 

CORNERS 

1530 NEXT X 

1540 DATA 800,400,250,200,250,300,100,10 
0,250 

1550 FOR X = 1 TO 9 

1 56 0 READ C[X] :R E M RECOMMENDED 

MAXIMUM CORNERING SPEED 

1570 NEXT X 

1580 DATA 150,90,175,200,200,90,90,150,1 
50 

1 5 90 FOR X = 1 TO 9 

1600 READ A(X]:REM AVERAGE NUMBER OF 
MOVES ALLOWED BETWEEN CORNERS 
1610 NEXT X 

1 6 20 DATA 8,4,2,2 , 2 , 2,1 ,1 , 2 

1630 APP = 800 :WW = 10:Q Q = 2 4:R R = 2 6 5 0 

1 640 IF GP =1 THEN RETURN 

1650 REM ************************ 

1660 REM GERMAN DATA 
1670 SPEED=85 
1680 FOR X=1 TO 7 
1690 READ D(X] 

1700 NEXT X 

1710 DATA 600,200,100,150,250,200,200 
1720 FOR X=1 TO 7 
1730 READ C[X) 

1740 NEXT X 
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1750 DATA 90,175,120,90,200,200,175 
1760 FOR X=1 TO 7 
1770 READ A(X] 

1790 NEXT X 

1 7 90 DATA 6,2,1 ,2,2,2,2 

1800 APP=600;WW=8:QQ=17:RR=1700 

1810 IF G P = 2 THEN RETURN 

1820 REH ************************ 

1830 REM ITALIAN DATA 
1840 SPEED=108 
1850 FOR X=1 TO 7 
1860 READ D[X] 

1870 NEXT X 

1880 DATA 800,300,100,150,300,350,200 
1890 FOR X=1 TO 7 
1900 READ C(X] 

1910 NEXT X 

1920 DATA 120,90,90,150,200,120,150 
1 930 FOR X = 1 TO 7 
1940 READ A(X) 

1950 NEXT X 

1 96 0 DATA 8,3,2,1 ,3,3,2 

1 97 0 APP = 8 00 :WW = 8:Q Q = 2 2:RR = 2200 

1 980 IF GP = 3 THEN RETURN 

1990 REM ************************* 

2000 REM MONACO DATA 
2010 SP EED=162.5 
2020 FOR X=1 TO 14 
2030 READ D(X) 

2040 NEXT X 

2050 DATA 400,100,100,300,400,300,150,20 
0,200,200 

2060 DATA 150,150,200,250 
2070 FOR X=1 TO 14 
2080 READ C(X] 

2090 NEXT X 

2100 DATA 175,150,175,200,120,200,175,90 
,175,150 

2110 DATA 150,175,120,150 
2120 FOR X = 1 TO 14 
2130 READ A[X] 
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2140 NEXT X 

2150 DATA 4,1 ,1 ,3,4,3,1 ,2,2,2 
2160 DATA 1,2,2,2 

2170 APP=400:WW=15:QQ=30:RR=3100 
2180 RETURN 

2190 REM ************************* 
2200 REM INITIALIZATION 
2210 CLS 

2220 RANDOMIZE VAL(RIGHT$(TIME$ , 2 ) ] 
2230 DIM A ( 1 4) , C ( 1 4) ,D(14) 

2240 C=1:FP=6:PNT=0:NC=0:CP=0 

2250 AM=0sRP=0:APP=0 

2260 NUM=0:REM NUMBER OF MOVES 

2270 ENG=100:BRAK=10:TRAV=0:DIST=0 

2280 E F LA G = 0 

2290 X=0 

2300 RETURN 

2310 REM ************************* 
2320 REM DELAY 

2330 FOR 0 = 1 TO 1000 : NEXT 0 
2340 RETURN 
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Chapter Twenty-Three 
Up, Up and Away 


Flight simulators are probably the most entertaining simulation 
programs you can run. Many of us will never learn to fly, but would 
like to enjoy the experience. A flight simulation program gives you 
a chance to find out a little of how it feels to fly. 

The main challenge facing a pilot is to keep on top of a number of 
situations which are changing all at once. Ignore any one of them - 
such as the angle at which the plane is flying, or the amount of fuel 
you have - for too long, and your plane may well drop out of the 
sky. Although this program does not occur in real time, so you 
have a chance to think about the choices facing you before you act, 
you’ll still find it a fairly challenging (and frustrating) simulation to 
master. 

Even getting the plane off the ground is not particularly easy the 
first few times you run the program. Get it in the air, and you have 
to fight every second to keep it there. 

And once you try and land . . . 

Crashing during a landing attempt is a trifle inconvenient in a real 
plane. The moment you try and land 150 feet above the ground, 
you’ll give thanks that you are flying your computer. 


Mastering the Controls 

This simulation is the most complex in the book. It will take you a 
little longer than the others to learn to use. This longer learning 
time will, however, be amply repaid as you’re sure to find this 
program the most satisfying to run. Flight Simulation contains 
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another bonus which makes it very worthwhile to run. Your flight 
is automatically recorded, so at any moment while you’re still in 
the air, you can tell the computer you want to see the whole of the 
current flight from the beginning again. It is very entertaining to 
watch your flight unfolding quickly in front of you. The controls 
are handed back to you once you reach the point in the original 
flight where you told the computer you wanted a repeat. 

Think of the flight as having three parts, each of which requires a 
different approach to the controls. Part one is the takeoff, part two 
is the actual flight, and part three is the landing. You’ll become an 
ace pilot fairly easily if you concentrate on mastering each flight 
section in turn. 

And don’t give up, even after your twentieth attempt at landing has 
ended in disaster. The satisfaction you’ll feel when you manage a 
perfect landing for the first time will more than compensate for all 
the frustration inherent in the learning process. 

This is what you see when you first run the program: 


HORIZON HEADING 



. N . 


. . ® . . 

************** 

■ ■ s ■ ■ 

W — X — E 


• 

• • ■ mm 


.s. 

RANGE 0 : TIME .1 

: 226 

AIRSPEED : 0 

• 

> 


ALTIMETER: 0 

0 DEG. 

> 


FUEL : 750 



-> 

ELEVATION: 0 : -- 

""" ■ 

: > UNDERCARRIAGE DOWN < : 
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In the top left is the horizon. This can tilt rather alarmingly from 
side to side as you turn the plane, or go to the bottom of the 
‘windshield’as you climb, or to the top when you descend. It may 
take a short while in order for you to be able to ‘see’ this line as the 
horizon, but once you do, you’ll find it conveys a much better 
impression of ‘being in the air’ than you might imagine at this 
stage. 

To the left of the horizon is your compass. The shows the 
direction you’re heading. You always start a flight facing due 
north, and must take off more or less in this direction. Your exact 
heading is shown further down the instrument cluster, in the same 
line as ALTIMETER, where you’ll see ‘0 DEG.’. 

The line of readings underneath the horizon and compass shows 
the distance over the ground you’ve covered so far (the ‘range’), the 
time of the flight, and the direction in which you must be flying in 
order to land (assuming you get this baby up in the air, and keep it 
there for a few seconds!). You need to be within 12 degrees of this 
heading for a successful landing. The required heading changes 
from run to run, but does not change during a flight. 

Under this is your airspeed, altimeter (height above the ground) 
and remaining fuel. The line of dashes ending in a greater than sign 

(_>) indicates the magnitude of each of these readings. That is, 

the line gets longer as you go faster, or climb higher. 

The elevation is the angle of your plane against the ground. When 
you enter a command, by touching a single key, a full-word version 
of the command appears in the position currently occupied by the 
series of dashes you can see after the elevation angle in the sample 
run above. Finally, you are told whether or not your undercarriage 
is down. 

After a few inputs, the screen looks like this: 
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HORIZON 


HEADING 


■ N . 

. . t . . 

. . t . . 
W--X— E 

.S. 


RANGE .6 : TIME 1.3 t 226 


AIRSPEED : 30 

- > 

ALTIMETER: 0 0 DEG. 

> 

FUEL : 692 

- > 


:ELEVATION: 20 : NOSE UP 

: > UNDERCARRIAGE DOWN < : 

Your fuel has gone down slightly, your airspeed is up to 30, and the 
nose of the plane is pointing 20 degrees into the air. You can see, 
from down near the bottom right hand corner of the screen, that 
NOSE UP is the full equivalent of the most recent command you 
entered. 

A little later, and we are in the air: 

HORIZON HEADING 

.-j-s 


: 


: . N. : 

a • W . . 

: 

: 


• a a i a a i 

: W — X — E : 

; ********* 

* * * * * 

■ ■ ■ ■ • a 8 



: . S . : 

RANGE 1 : 

TIME 

2 : 2 2 6 

AIRSPEED : 
- - > 

51 


ALTIMETER: 

6 6 

359 DEG. 

-- > 



: F U E L ; 

6 6 0 

-> 

ELEVATION: 

1 9 : 

THROTTLE ON 


: > UNDERCARRIAGE DOWN < : 
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You need an airspeed of between 45 and 60, and an elevation 
greater than 10, in order to get off the ground. Let’s try turning: 

HORIZON HEADIN6 

:-.-: 

: : . N . : 

a a ■ ® a a ■ ! 

: 

s **** s W — X — E s 

: ****** 

: ***** . s 

: : . S . : 


RANGE 1.2 : TIME 2.3 : 226 


AIRSPEED i 40 
-- > 

ALTIMETER: 143 344 DEG. 

FUEL : 648 

- > 


ELEVATION: 15 : BANK LEFT 

> UNDERCARRIAGE UP < 


Note that the undercarriage is now up (which saves on fuel, and 
decreases drag on the plane) and the ‘horizon’ is now sloping to 
down to the right, as the plane banks left. It is now heading at 344 
degrees, and the @ symbol on the compass has moved to show the 
approximate direction in which the plane is flying. 


HORIZON HEADIN6 


: 

.N . 

** 

a . 

*** 

m 9 2 p 9 

* * * 

W — X — E 

*** 

. . : . . 

*** 

a a a • ■ 

: 

a S . 

RANGE 3.1 : TIME 

3.7 : 226 

AIRSPEED : 59 


-- > 


ALTIMETER: 353 

3 DEG. 

---> 


FUEL : 590 



-> 


ELEVATIONi 7 : BANK RIGHT 

> UNDERCARRIAGE UP < 


: 
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In this ‘snapshot’, taken a few moments later, we have started to 
bank to the right. Our airspeed is up to 59, and we’ve continued to 
climb. However, the elevation has fallen, so the rate of climb will 
decrease. As we level off, the horizon gradually tilts back to the 
horizontal: 


HORIZON 


HEAD ING 

-- 


.N. : 

..:•. : 


♦ * * * * 

W — X — E ! 

****** 


. . : . . s 

* * * * 


. . : . . : 



.S . ! 

: RANGE 3.6 

! TIME 

5.3 : 226 



-. 

:AIRSPEED : 

. __ y 

76 


s ALTIM ET ER : 

47 5 

15 DEG. 


-> 


:FUEL : 

525 

-> 

! ELEVATION : 

12 ! THROTTLE ON 

: > UNDERCARRIAGE UP < 


As I said in the introduction, there are an awful lot of things to keep 
under control. While concentrating on the direction in which I’m 
flying, I’ve been neglecting the plane’s elevation which has been 
slowly falling: 

HORIZON HEADING 


:-s- 

: .N . 

: . . : • • 

***** : . 

****** : W — X — E 

•••• s . . s . . 

: . . : . . 

: . S . 

RANGE 7.4 : TIME 6.9 : 226 


AIRSPEED ; 152 

- > 

ALTIMETER! 593 


31 DEG. 


FUEL 


S 457 


ELEVATION: 0 : THROTTLE ON 

> UNDERCARRIAGE UP < 


174 


























Suddenly I notice the nose is pointing downward (note how the 
horizon is now right at the top) and frantically try to climb: 


HORIZON 


HEADING 


. ****** 

■ 

• 

. N . 

. * * * * 

• 

• 

■ 


: 

■ A 

■ ■ ■ . 


: 

• 

• 

W — X — E 

■ ■ s . . 


• 

■ 

• 

• 

• 

.s. 

■ 

: RANGE 11.3 : TIME 

8.1 s 226 

• 

AIRSPEED : 245 


■ 

-> 



ALTIMETERS 250 


47 DEG. 

-> 



FUEL t 403 

— 

-> 

ELEVATION:-11 : 

• 

CLIMB 

s > UNDERCARRIAGE UP < 


However, too much is happening too quickly, and there is an 
inevitable result: 


CRASH! 

CRASH 1 

CRASH 1 

CRASH I 

CRASH 1 

CRASH 1 

CRASH 1 

CRASH! 

CRASH I 
CRASH I 

CRASH I 
CRASH I 
CRASH I 
CRASH 1 
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The final picture is pretty bleak: 


HORIZON HEADING 


C R** A *• 

S* s 


.N. : 

* A ** S* H 

* 

■ 

■ 

■ ■ 
■ ■ ■ ■ ■ 

R** A *♦ S* 

H : 

■ a 

■ ■ 
■ ■ ■ ■ 

R * * A ** S* 

H : 

w- 

1 

X 

1 

fl> 

m 

■■ 

A ** S* H* 

! : 

• a 

a a a a 

*♦ A ** S* 

H* s 

■ 

a a a a a 

* *C R*» A 

♦ * 

■ 


. S . : 

RANGE 14.1 : 

TIME 

9 a 

■ 

2 8 2 2 6 


AIRSPEED : 273 

- > 

ALTIMETER: 0 84 DEG. 

> 

FUEL : 366 


> 


ELEVATION:-16 : THROTTLE ON 

> UNDERCARRIAGE UP < 


The commands you have at your disposal are: 


R - this allows you to repeat the current flight from the 
beginning up to that point 

Space bar - this is used for ‘throttle on’, and increases your 
speed 

. - use this to throttle back 
Q - to increase elevation 
A - to decrease elevation 
Z - to turn left 
M - to turn right 

1 - to change undercarriage from up to down, or from down to 
up. 


Remember, to take off you must have a speed between 45 and 60, 
and your elevation must be greater than 10. To land, your 
undercarriage must be down (!), your heading must be within 12 
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degrees of the setting shown beneath the compass, you must be 15 
or below on your altimeter, and your speed must not be greater 
than 20. You’ll find landing is even harder (as in real life) than is 
taking off. 

The complete Flight Simulation listing is in the next chapter. 
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Chapter Twenty-Four 
The Flight Simulation Listing 


Time now to earn your wings, with this listing: 

10 REM FLIGHT SIMULATION 
20 R P T = 0 

30 LD = INT(RND( 1 )* 3 6 0 ) 

40 DIM Et(1000):REM THIS HOLDS FLIGHT 

RECORD 

50 DIM A»(7) , C((7) :REM THESE ARRAYS 
HOLD HORIZON AND COMPASS OUTPUT 
60 REM ************************** 

70 GOSUB 2 3 2 0 :R E M INITIALIZE 

80 IF C R A S H = 0 THEN GOSUB 8 2 0 : R E M HORIZON 

/COMPASS 


90 GOSUB 5 0 0 :R EM PRINTOUT 
100 IF C R A S H = 1 THEN END 

110 IF LA ND =1 AND UF LAG = 1 THEN PRINT "WE 

LL DONE. A PERFECT LANDING I I " : END 

120 IF LA ND =1 AND U F LA G = 0 THEN PRINT "YO 

UR WHEELS ARE UP"iGOSUB 1780:GOTO 90 

130 T=AIRSPEED:STALL=0 

140 X$=INKEY$ 

150 IF X $ ="R" THEN RPT = 1:G0T0 70 

160 IF R PT = 1 AND E$[CL0CK + 1 )="" THEN RPT 

= 0:G OT 0 140 

170 IF RPT = 1 THEN Xt = E((CL0CK + 1 ) 

180 IF X$="" THEN 140 

190 IF CL0CKO99 THEN E * ( C L 0 C K + 1 1 =X $ 

200 IF TAKE0V = 1 THEN ELEVATE = I NT(ELEVATE 
+ RND[1 ]* 2 —R N D[1 J *3 ) 

210 IF AIRSPEED <3 THEN 290 

220 IF X $ = "Q" THEN ELEVATE = ELEVATE + 5 : EFL 
A G = 5:IF ELEVATE>60 THEN ST A L L = 1 
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230 IF X $ = "A" THEN ELEVATE = ELEVATE-5:EFL 
AG=-5:IF ELEVATE<-70 THEN STALL=-1 
240 IF STALLOO THEN GOSUB 1640 
250 IF ALTIMETERC1 THEN 290:REM PREVENTS 
DRAMATIC TURNS ON THE GROUND 
260 IF X$ = "Z" THEN W A = W A - . 5 : A N G = A N G - 6 : I F 
WA <-3 THEN WA = -3 

270 IF X $ ="M" THEN WA=WA+.5sANG=ANG+6:IF 
WA >3 THEN WA = 3 

280 ANG = I NT ( A N G + R ND ( 1 ) *2-RND ( 1 ) *2 ) 

290 IF X$ = " " THEN A IRSPEED=AIRSPEED+8.5 

300 IF X$ = "." THEN A IRSPEED = A IRSPEED-7 

310 AIRSPEED=AIRSPEED-ELEVATE/5 

320 IF UF LA G = 1 THEN A IRSPEED=A IRSPEED-1 . 

5:FUEL=FUEL-.5 

330 IF AIRSPEED <0 THEN AIRSPEED = 0 
340 IF AIRSPEED >400 THEN AIRSPEED=400 


350 

0T0 

IF X $ = "1 " 
370 

AND 

UF LAG = 0 

THEN 

UF LAG = 1 

360 

IF X $ = ”1" 

AND 

UF LAG=1 

THEN 

UF LAG = 0 


370 FUEL=FUEL-(ABS(T-AIRSPEEDJ/10j-3.75 
380 IF F U E L <1 THEN GOSUB 1780 
390 IF TAKE0V=1 THEN 420 

400 IF ELEVATE>10 AND AIRSPEED>45 AND AI 
RSPEED <60 AND U F LA G = 1 THEN TAKE0V=1 

410 IF TAKE0V=0 THEN ALTIMETER=0:G0T0 45 
0 

420 IF LA ND = 0 AND AIRSPEED<30 THEN ELEVA 
TE = ELEVATE-5SALTIMETER = 9*ALTI METER/10 
430 ALTIMETER=ALTIMETER+INT(((ELEVATE+.1 
)*AIRSPEED)+EFLAG*AIRSPEED/10001/80 
440 IF ALTIMETER<300 AND TAKE0V=1 THEN A 
LTIMETER=ALTIMETER+AIRSPEED/30+ELEVATE 
450 IF ALTIMETER<0 THEN GOSUB 1780:REM 
CRASH 

460 REM CHANGE NEXT TWO LINES TO MAKE IT 
EASIER (OR EVEN HARDER) TO LAND 
470 IF ALTIMETER>15 AND AIRSPEED>20 OR T 
A K E 0 V = 0 THEN 80 

480 IF ABS(ANG-LD) <13 OR ABS(ANG + 360-LD) 
<13 THEN LA ND = 1 sGOTO 80 


180 


500 REM PRINTOUT 
510 CLS 

520 PRINT " HORIZON";TAB(20] ;"HEAD ING" 
530 EV = INT(ELEVATE/1 0 ) 


540 

I F 

EV >2 

THEN 

cu 

ll 

> 

hi 

550 

IF 

E V < - 2 

THEN 

CM 

1 

II 

> 

LU 

560 

IF 

EVOO 

AND 

TAKE0V=1 AND CRASH=0 TH 


EN GOSUB 1920 

570 PRINT ---- •« 

580 FOR J=1 TO 7 

590 PRINT "j " } A $ ( J ) j " s" 

600 A $ [ J ) = " " 

610 NEXT J 

62 0 PRINT " s- s " 

630 DIST=DIST+AB8((COS(ELEVATE))*AIRSPEE 
0 J/360 

640 CL0CK = CL0CK-f1 

650 PRINT "sRANGE"INT(DIST*10)/10"s TIME 
"INT(CLOCK 1/10}"s"LD 

660 PRINT "s-: » 

670 PRINT "sAIRSPEED s"INT(AIRSPEED] 

680 PRINT "s";LEFT$(Q$,I NT(AIRSPEED/20 ) ) 

. « >" 

690 PRINT "rALTIMETER:"INTIALTIMETER) | 
700 IF A N G < 0 THEN PRINT TAB(19){360+ANG" 
DEG." 

710 IF A N G > = 0 THEN PRINT T A B (1 9 ) ; A N G " D E G 

If 

■ 

720 MR=INT(ALTIMETER/30]:IF MR>20 THEN M 
R = 2 0 

730 PRINT "s"5LEFT$[Q$,MR){">" 

740 PRINT "sFUEL :"INT(FUEL] 

750 PRINT "s"}LEFT*tQ»,20-1 NT(FUEL/750 ) ) 

. « > n 

760 PRINT "s- 

770 PRINT "sELEVATIONs"ELEVATE"s "jsGOSU 
B 2210:PRINT U » 

780 IF UFLAG = 1 THEN PRINT ":"}TAB(5 ) j " > 
UNDERCARRIAGE DOWN < :" 
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790 IF UF LA G = 0 THEN PRINT ":";TAB(6] 
UNDERCARRIAGE UP < : " 

800 RETURN 

810 REM ************************** 
820 REM ASSIGN H0RIZ0N/C0MPASS 
830 IF ABS(I NT(WA+.5] )=3 THEN GOSUB 
840 IF ABS(I NT(WA+.5) ]=2 THEN GOSUB 

850 IF ABS(I NT(WA+.5) ]=1 THEN GOSUB 

860 IF I NT(WA +.5)=0 THEN GOSUB 1250 
870 REM NEXT TWO LINES USED TO 
GRADUALLY STRAIGHTEN UP WINGS 


880 

IF W A > 0 THEN 

cu 

■ 

< 

36 

II 

< 

3E 


890 

IF W A < 0 THEN 

W A = W A + . 2 


900 

IF W A >.2 THEN 

1 350 


91 0 

FOR Z=1 TO 7 



920 

M$(8-Z)=A$ ( ZJ 



930 

NEXT Z 



940 

FOR Z=1 TO 7 



950 

A$(Z)=M$(Z) 



960 

NEXT Z 



970 

GOTO 1350 



980 

REM W A = 3 OR - 

3 


990 

A $ ( 1 J = " 

* it 


1000 

A $ ( 2 ] = " 

* * 

it 

1 01 0 

A $ ( 3 J = " 

* * 

ii 

1020 

A $ ( 4 J = " 

* * 

if 

1 030 

A $(5 J =" ** 

ii 

1 040 

A $(B]=" ** 


ii 

1050 

A $ ( 7 ) = " * * 


ii 

1060 

R ET UR N 



1070 

REM W A = 2 OR 

-2 


1 080 

A $ (1 ) = " 


ii 

1090 

A $ ( 2 ) = " 

* * 

it 

1100 

A $ ( 3 ) = " 

* * * 

ii 

1110 

A $ ( 4 ) = " 

* * * 

it 

1120 

A $ ( 5 ) = " * * * 


n 

1130 

A$(6J="*** 


it 

1 1 40 

A $ ( 7 ) = " 


tt 

1150 

RETURN 




5 " > 

980 

1070 

1160 
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1160 REM WA=1 OR -1 

1170 A$(1)=" " 

1 1 8 0 A * ( 2 ) = " " 

1190 A $ ( 3 ) = " *•**'*" 

1200 A $ ( 4 J = " ****** it 

1210 A$(5)="**** " 

1220 A ♦ (6]=" " 

1230 A $[7 J =" " 

1240 RETURN 
1250 REM WA=0 

1260 A$(1J=" " 

1270 A $(2]= " " 

1280 A $ ( 3 ) = " " 

1290 A$(4)="**************" 

1300 A $ ( 5 ) = " " 

1310 A $(6]=" " 

1 320 A $(7 J = " " 

1330 RETURN 

1350 REM ASSIGN COMPASS STRINGS 
1360 F2=ANG-F1 

1 370 IF F 2 < 0 THEN FA = I NT[ [F2 + 375 )/30 ) 

1 380 IF F 2 > = 0 THEN FA = INT( (F2 +15]/30) 

1 390 IF F A = 1 2 THEN FA = 0 
1400 C$(1]='' .N. " 

1410 IF F A = 1 1 THEN C$[2)=" "sGOTO 

1450 

1 420 IF F A = 0 THEN C$(2)=" ":GOTO 

1 45 0 

1430 IF F A = 1 THEN C $[2)=" ":G0T0 

1 45 0 

1 440 C $(2)=" " 

1450 IF F A = 10 THEN C$[3)= " .• : ..":GOT 

0 1480 

1 460 IF F A = 2 THEN C$[3)= " .. : •."sGOTO 

1480 

1 47 0 C $ ( 3 ] = "." 

1 480 IF F A = 9 THEN C$(4)=" W O-X — E":GOTO 
1 510 

1 490 IF F A = 3 THEN C$[4) = " W--X-«E":GOT0 
1 51 0 
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1500 
1 51 0 
1 540 
1 520 
1540 
1530 
1 540 
1580 
1550 
1 580 
1 560 
1 580 
1 570 
1 580 
1590 
1600 
1610 
1620 
1630 
1 640 

16 50 
1660 
1670 
1680 
1 690 
1700 
1710 
1720 

17 30 
1740 
1750 
1760 
1 770 
1780 
1790 
1800 
1810 

1820 
1830 
1 840 


C $ [ 4 ) = " 

W--X 

— E " 



IF F A = 8 

THEN 

C$[5]=" 

a - 11 

■ * • ■ ■ 

: GOTO 

IF F A = 4 

THEN 

C $ [ 5 ) = " 

• a " 
• ■ ■ v ■ 

: GOTO 

C $ [ 5 J = " 

. . : 

II 

■ ■ 



IF F A = 7 

THEN 

C $ ( 6 J = " 

a • » 

■ V a ■ ■ 

: GOTO 

IF F A = 6 

THEN 

C$ [ 6 ] =" 

a " 

■ ■ v ■ ■ 

s GOT 0 

IF F A = 5 

THEN 

C $ ( 6 ) = " 

a a ” 

■ ■ • v ■ 

: GOTO 

C$[6]=" 

■ 

a • ■ 

II 

■ ■ 



C $ ( 7 ) = " 

.s 

II 

■ 




IF A N 6 > 3 6 0 THEN ANG = ANG-360 
F 2 = A N G 

IF W>0 THEN W = W-.4 
IF W<0 THEN W = W +■4 
RETURN 

REM STALL/FALL 

IF ST A LL = -1 THEN 1710 

FOR J=1 TO 10 

PRINT TAB(J ] ;"YOU HAVE STALLED!” 
NEXT J 

AIRSPEED=AIRSPEED/4 

RETURN 

FOR J =1 TO 10 

PRINT TABU);” UNCONTROLLED DIVE!!” 
PRINT TAB(21-JJ 5 "PULL UP!!" 

NEXT J 

ALTIMETER=4*ALTIMETER/5 
RETURN 

REM ************************** 

REM CRASH 

CRASH =1 

ALTIMETER=0 

M$ = »** * C R*» A ** S* H* I!*"sREM 

25 CHARACTERS LONG 

FOR J =1 TO 20 

PRINT TAB l J ) ;"CRASH I " 

PRINT TAB(21-J) ;"CRASH! " 
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1850 NEXT J 

1860 FOR J = 1 TO 7 

1870 G=INTlRND(1]*11]+1 

1880 A$(J]=MID $(M $,G,14) 

1890 NEXT J 
1900 RETURN 

1910 REM ************************** 

1920 REM ADJUST HORIZON 

1930 G$=" ":REM 14 SPACES 

1940 ON EV+3 GOSUB 1960,2020,2070,2080,2 
1 40 

1950 RETURN 

1 960 REM E V = - 2 
1970 FOR J=1 TO 4 
1980 A $(J)=A $(J + 3) 

1990 NEXT J 

2000 A$(5)=G$!A $(6)=G$:A$(7)=G$ 

2010 RETURN 
2020 REM E V = -1 
2030 FOR J=1 TO 6 

2 040 A $[J)=A $[J + 1 ) 

2050 NEXT J 

2060 A $(7)= G $ 

2070 RETURN:REM EV=0 
2080 REM E V = 1 
2090 FOR J=6 TO 1 STEP -1 
2100 A $(J + 1 ]=A $lJ) 

2110 NEXT J 
2120 A $(1 )= G $ 

2130 RETURN 

2140 REM E V = 2 

2150 FOR J = 4 TO 1 STEP -1 

2160 A $(J + 3)=A $(J) 

2170 NEXT J 

2180 At(1)=G$:A$(2)=G$:A$(3]=G$ 

2190 RETURN 

2200 REM ************************** 

2210 REM INPUT INTO COMMAND NAME 
2220 U $ = "-" 

2230 IF X $ =" " THEN U$ = "THROTTLE ON" 

2240 IF X$="THEN U$="THROTTLE OFF" 
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2250 

CLIMB 

2260 

NOSE 

2270 

2280 

2290 

2300 

2310 

2320 

2330 

2340 

2350 

21 

236 0 

2370 

2380 

2390 

2400 

241 0 
2420 
243 0 

2440 

FOR 

2450 

2460 

2470 


IF X $ = " Q " AND ALTIMETER>0 THEN U$ = " 


AND ALTIMETER=0 THEN U$=" 


THEN U$ = " NOSE DOWN" 
THEN U $ = n BANK LEFT" 
THEN U$="BANK RIGHT" 


IF X $ = "Q" 

UP " 

IF X $ = "A" 

IF X$=»Z" 

IF X $ = "M " 

RETURN 

REM ************************** 

REM INITIALIZATION 
CLS 

RANDOMIZE VAL(RIGHTS(TIME* p 2)) 

Q$ = "-"sREM 

CHARACTERS IN STRING 
UFLAG=1:REM UNDERCARRIAGE - 
1 - DOWN, 0 - UP 

E F LA G = 08 REM CLIMB RATE 
ANG=0sTAKE0V=0sLAND=0 
AIRSPEED=0 

DIST = OsREM DISTANCE COVERED * RANGE 


ALTIMETER=0 

ELEVATE=0sREM ANGLE OF ELEVATION 
W A = 0:REM 'WING ANGLE; USED IN 

HORIZON PRINTOUT 
FUEL=750:CRASH=0:F2=0:F1=0:REM 
DIRECTION CHANGE/COMPASS ROUTINE 
C L 0 C K = 0:REM TIME 
X $ = » « 

RETURN 
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Commodore 64 Listings 


Space Landing 

10 REM SPACE LANDING SIMULATION 

20 FLAG=INT(RND<VAL(RIGHTS(TI*,2> > > ) :REM 

RANDOMIZE 

40 REM SET STARTING VALUES 
45 POKE 53280,0:POKE 53281,0 
50 FUEL=200+RND(1>*40 
60 VELOC I TY=RND ( 1 ) *20-6 
70 HEIGHT=500-RND (1> *10 
80 PRINT” 

{CLR > i MHT >” 

90 PRINT” FUEL”5 TAB<12) 5 ” VELOCITY"5 TAB< 
24)HEIGHT" 

100 REM ****************************** 
110 REM MAJOR CYCLE 
120 GOSUB 430 

130 IF FUEL< =0 THEN FLlEL=0: THRUST=0: GOTO 
170 

140 GET AS 

150 IF AS<"0" OR AS>"9" THEN 140 

160 THRUST=VAL(AS > + . 1 

170 FUEL =FLJEL-THRUST 

180 FLAG=THRUST-2 

190 THRUST=0 

200 HEIGHT=HEIGHT +VELOCITY+FLAG/4 
210 VELOC ITY=VEL.GC ITY + FLAG 
220 IF HEIGHT< = 10 THEN 240 
230 IF HEIGHT>10 THEN 120 

240 IF VELOCITY>-9 AND VEL0CITY<5 THEN 2 
90 

250 GOSUB 410 

260 PRINT"YOU HAVE CRASHED INTO THE SURF 
ACE - . . " 

270 IF HEIGHT >0 THEN HEIGHT=-HEIGHT 
280 GOTO 320 
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29.0 GOSUB 4000: PR I NT "YOU HAVE LANDED SAF 
ELY ! " 

300 PRINT"YOUR SKILL RATING IS"INT(-1000 
*FUEL/(VELOCITY-HEIGHT)> 

310 HEIGHT=0 
320 GOSUB 410 

330 PRINT"FINAL INSTRUMENT READINGS MERE 

m If 
• 

340 PRINT" FUEL"5 TAB(12) ; " VELOCITY"5 TAB 
(24)5" HEIGHT" 

350 GOSUB 430 
360 GOSUB 410 
370 IF HEIGHT >=0 THEN END 

380 PRINT"NEW CRATER ON MOON"INT(ABS(100 
*<HEIGHT+.2>/3))/100"METERS DEEP!" 

390 PRINT"YOUR SKILL RATING IS "INT(100* 
FUEL/(VELOCITY-HEIGHT)) 

400 END 

410 PRINT"- 


420 RETURN 

430 PRINT INT <100*FUEL) /100; 

440 PRINT TAB(12)5-INT(100*VELGCITY)/100 

9 

9 

450 IF HEIGHT >=0 THEN PRINT TAB(24);INT( 

100*HEIGHT)/100 

460 IF HEIGHT<0 THEN PRINT 

470 RETURN 

4000 SID=54272 

4010 FOR L1=0 TO 23 

4020 POKE SID+L1,0 

4030 NEXT LI 

4040 POKE SID+24,15 

4050 POKE SID+5,15 

4060 POKE SID+6,255 

4070 POKE SID+4,17 

4080 FOR LI=48 TO 220 STEP .7 

4090 POKE SID+1,L1 

4100 NEXT LI 

4110 FOR L1=28 TO 200 

4120 POKE SID+1,L1 
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4130 NEXT Li 

4140 FOR Li=200 TO 28 STEP 
4150 POKE SID+1,L1 
4160 NEXT LI 
4170 POKE SID+1,0 
4180 RETURN 


-1 
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Monte Carlo 


10 REM MONTE CARLO DEMONSTRATION 
20 GOSUB 370:REM INITIALISE 
30 REM *************************** 

40 REM MAJOR CYCLE 
45 PRINT" 

{ C L R > " 

50 GOSUB 100:REM PRINT 

60 IF P=EP AND Q=EQ THEN PRINT:PRINT"DEM 
ONSTRATION OVER":END 
70 GOSUB 230:REM GENERATE MOVE 
80 GOTO 50 

90 REM *************************** 

100 REM PRINTOUT 
110 A<53 (P, Q) = m O" 

120 M=M +1 
130 PRINT" 

(HOME)”:PRINT:PRINT 
140 PRINT"MOVE"M 
150 FOR X=1 TO 10 
160 FOR Y=1 TO 10 
170 PRINTA$(X , Y ) 3 " "3 

180 NEXT Y 
190 PRINT 
200 NEXT X 
210 RETURN 

220 REM ************************** 

230 REM GENERATE MOVE 
240 A*MP,Q)="." 

250 6=0 

260 T = INT <RND(1)*4)+1 

270 ON T GOSUB 310,320,330,340 

280 IF 6=0 THEN 260 

290 IF 6=1 AND RND(1>>.5 THEN 260 

300 RETURN 

310 IF P>1 THEN P=P-1:6=6+1:RETURN 
320 IF P<10 THEN P=P+1:G=G+t:RETURN 
330 IF Q>1 THEN Q=Q-1:G=G+1:RETURN 
340 IF Q<10 THEN Q=Q+1:G=G+1:RETURN 
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350 RETURN 

360 REM **^*********************** 

370 REM INITIALISE 

380 POKE 53280,0:POKE 53281, 0: PRINT” 
ICLR>" 

390 X=RND(VAL(RIGHTS(TIS,2))):REM 

RANDOMIZE 

400 DIM A*<10,10) 

410 FOR X =1 TO 10 
420 FOR Y=1 TO 10 
430 AS(X,Y>=” . " 

440 NEXT Y 
450 NEXT X 
460 PRINT:PRINT 

470 PRINT”ENTER FIRST START CO-ORDINATE 
(LESS THAN 10) M 

480 INPUT P 

490 IF P<1 OR P>10 THEN 480 
500 PRINT"ENTER SECOND START CO-ORDINATE 
(LESS THAN 10) M 
510 INPUT 0 

520 IF Q<1 OR Q>10 THEN 510 
530 PRINT:PRINT 

540 PRINT "ENTER FIRST END CO-ORDINATE <L. 
ESS THAN 10) " 

550 INPUT EP 

560 IF EP<1 OR EP>10 THEN 550 

570 PRINT M ENTER SECOND END CO-ORDINATE ( 

LESS THAN 10)" 

580 INPUT EQ 

590 IF EQ<1 OR EQ>10 THEN 580 
600 AS(P,Q)="0" 

610 AS ( EP , EQ) = " X " 

620 RETURN 
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Simultaneous Equations 

10 REM SIMULTANEOUS EQUATIONS 
20 POKE 53280,0:POKE 53280, 0: PRINT M 
£ C L R } 11 

30 J=RND(UAL'RIGHTS(TI*,2> ) ) :REM 
RANDOMIZE 
40 HS=0 
50 FD=RND(0) 

60 PRINT--PRINT "DECAY FACTOR IS"FD 
70 GOSUB 550 
8.0 PRINT" 

I CLR > " 

90 PRINT:PRINT 

100 PRINT"ENTER NUMBER OF CELL X TO 
START (LESS THAN 40)" 

110 INPUT CP:IF CP<1 OR CP>39 THEN 11.0 

120 print:print 

130 PRINT"ME HAUE"CP" X CELLS" 

140 PRINT:PRINT 

15.0 PR I NT "ENTER NUMBER OF CELL Y TO 
START (LESS THAN 40)" 

160 INPUT EP:IF EP<1 OR EP >39 THEN 160 
170 PRINT " 

1CLR>":PRINT:PRINT"PLEASE STAND BY..." 
180 GOSUB 550:PRINT" 
i CLR >" 

190 DA=1 

2.00 IF CP>EP/FD THEN CP=EP/FD 
210 PRINT"-" 

215 IF I NT ( CP ) < .0 THEN CP=0 

216 IF INT(EP)<0 THEN EP=0 
220 PRINT "TIME ELAPSED:"DA 
230 PRINT INT(CP)"CELL X" 

240 PRINT INT(EP)"CELL Y" 

250 REM *^^******************^***** 

260 REM MAJOR CYCLE 
270 GOSUB 550 
280 DA=DA+1 

290 PRINT"-" 
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30.0 PRINT "TIME ELAPSED: "DA 
310 IF CP>EP/FD THEN CP=EP/FD 
32.0 REM EQUATIONS FOLLOW; MODIFY PARTS 
OF THEM TO SEE WHAT HAPPENS 
330 CP=CP+<<8*CP-CP*EP/3)*FD) 

340 EP=EP+(<8*EP-EP*CP/3>*.01) 

350 PRINT INT(CP)"CELL X" 

360 PRINT INT(EP> "CELL Y" 

370 IF EP< 2 OR CP< 2 THEN 410 
330 GOSUB 550 
390 GOTO 280 

400 REM *******^******************* 

410 IF DA>HS THEN HS=DA 
420 PRINT:PRINT 

430 PRINT"YOUR CELL CLASH SIMULATION SUR 
VIVED" 

440 PRINT"FOR"DA"TIME PERIODS." 

450 PRINT"- 

__H 

460 PRINT"THE BEST SURVIVAL TIME SO FAR 
IS" HS 

470 GOSUB 550 

430 PRINT"- 

____ n 

490 PRINT"DO YOU WANT A NEW RUN (Y OR N> 
2 " 

500 GET A* 

510 IF A*<>"Y" AMD A$<>"N" THEN 500 
520 IF AS="Y" THEN PRINT " 

ICLR>":GOTO 60 

530 PRINT"OK":PRINT:PRINT:END 

540 REM *************************** 

550 FOR J=1 TO 2000:NEXT 
560 RETURN 


193 




Life 


10 REM CONWAY’S LIFE SIMULATION 
20 REM DEFINED INITIAL COLONY 
30 GOSUE 460:REM INITIALISE 

40 REM ^^***^*^*************** 

50 REM MAJOR CYCLE 
60 GEMERATIN=GENERATIN+1 
7.0 GOSUB 290: REM PRINTOUT 
80 GGSUB1I0:REM EVOLVE 
90 GOTO 60 

100 REM **^********************* 

110 REM EVOLVE 
120 FOR X=2 TO 12 
130 FOR Y=2 TO 12 
140 C=0 

150 IF AS< X - 1 , Y - 1 ) = " X " THEN C=C + 1 

160 IF AS<X-i,Y)= "X" THEN C = C+1 

170 IF ASCX-l,Y+1)= M X" THEN C=C+1 

180 IF AS(X,Y-l)="X M THEN C=C+1 

190 IF AS(X,Y+l)="X" THEN C=C+1 

200 IF AS<X+1,Y-1)= M X" THEN C = C + 1 

210 IF AS ( X + 1 , Y ) = 11 X " THEN C=C + 1 

220 IF AS(X + 1 , Y + 1 ) = " X" THEN C = C + i 

230 IF AS( X , Y > = " X " AND C<>2 AND C<>3 THE 

N BS(X 5 Y > =3 HRS(32) 

240 IF A?0<,Y)= H " AND C=3 THEN BS(X,Y) = 

11 v »» 

250 NEXT Y 
260 NEXT X 
270 RETURN 

280 REM **********************W 
290 REM PRINTOUT 
300 PRINT" 

{ C L R > " 

310 PRINT 

320 PRINTTAB(4 > ; "GENERATION"GENERATIN 

330 PRINT 

340 FOR X=2 TO 12 

350 FOR Y=2 TO 12 
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36.0 AS(X, Y>=BS<X, Y) 

370 PRINT AS(X , Y > ; 

380 NEXT Y 

390 FOR Y= 12 TO 2 STEP -1 
4.00 PRINT AS (X, Y) ; 

410 NEXT Y 
420 PRINT 
430 NEXT X 
440 RETURN 

450 REM ***********^********^** 

460 REM INITIALISE 

470 POKE 53280,0:POKE 53231, 0: PRINT" 
{CLRXPUR}' 1 

480 D=RNDCVAL(RIGHTS<TIS,2))):REM 
RANDOMIZE 

500 DIM AS ( 13,13),BS(13,13) 

510 PRINT: PRINT" PLEASE STAND BY... 11 
520 FOR X=i TO 13 
530 PRINT 14-X; 

540 FOR Y—1 TO 13 

550 REM FILL ARRAY WITH BLANKS 


560 

570 

580 

590 

600 

610 

620 

630 

640 

650 

660 

670 

700 


AS(X,Y)= CHRS(32 > 

BS(X,Y)= AS(X,Y) 

NEXT Y 
NEXT X 

READ D:IF D=99 THEN 630 

READ E : AS 'D, E ) = " X ” : BS ' D, E > = 11 X 

GOTO 600 

6ENERATIN=0 

RETURN 

DATA 5,5,5,9,6,6,6,3 
DATA 7,7 

DATA 8,6,3,3,9,5,9,9 
BATA 99 
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Robot Logo 

10# REM ROBOT LOGO 

110 GQSUB 1730:REM INITIALISE 

120 GOTO 490 

130 REM **************************** 

140 REM 

150 REM 

160 REM 

170 REM 

180 REM 

190 REM 

200 REM 

210 REM 

220 REM 

230 REM 

240 REM 

250 REM 

260 REM 

270 REM 

280 REM 

290 REM 

300 REM 

310 REM 

320 DATA " *" 

330 REM **************************** 
340 REM INT UX,AX 

350 LIX= I NT < UX + . 5 ) : AX = INT ( AX + . 5) 

360 RETURN 

370 REM **************************** 
380 REM PRINT OUT 

390 PRINT " 

{ C L R > " 

400 PRINT"STEP”PSN" > "5 A* ( PSN) :PRINT 

410 FOR J=1 TO DEPTH 

420 FOR K=1 TO BREATH 

430 PRINT Z$«J,KU 

440 NEXT K 

450 PRINT 

460 NEXT J 
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470 RETURN 

490 REM READ PROGRAM 
5.0.0 COUNT=COUNT + 1 
510 READ AS(COUNT' 

520 IF AS(COUNT)= "*■ THEN 550 

530 IF COUNT<20 THEN 500 

540 REM ********************W****** 

550 REM EXECUTE PROGRAM 

560 PSN=0:REM PROGRAM STEP NUMBER 

570 PSN=PSN+1 

580 IF PSN=2i THEN 580:REM END 
590 FLAG=0 
600 MS=AS<PSN) 

610 IF MS= M *" THEN 610:REM END 
620 NS=LEFTS(MS,2) 

630 IF NS=”ST" THEN 560:REM START AGAIN 
640 IF NS= "PR 11 THEN GOSUB 380: REM PR INTO 
LIT 

650 IF NS="FO” THEN FLAG=1 

660 IF NS="BA” THEN FLAG=2 

670 IF NS=" TU " THEN FLAG=3 

680 IF NS="HO" THEN FLAG=4 

690 IF NS= M CL M THEN FLAG=5 

700 IF NS= 11 GO" THEN FLAG=6 

710 IF NS= M RA ” THEN FLAG==7 

720 IF NS= "RE" THEN FLAG=8 

730 IF NS= M EN M THEN FLAG=9 

740 IF NS= 11 FA ” THEN FLAG= 10 

750 ON FLAG GOSUB 780,940,1000,1160,1220 

,1260,1400,1460,1530,1580 

760 GOTO 570 

780 REM FORWARD 

790 MS=MIDS(MS,4) 

800 IF ASC(MS)=87 THEN MS=MIDS<MS,6> 

810 FS= H F" 

820 NUM=VAL(MS) 

830 FOR E=1 TO MUM 

840 IF UX<1 OR UX >DEPTH THEN 880 
850 IF AX<1 OR AX >BREATH THEN 880 
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360 75<UX,AX>=T$ 

880 IF F$= M F M THEN UX=UX+UP:AX=AX+AC 
890 IF F*="B" THEN UX=UX-UP: AX=AX-AC 
900 GOSUB 340 
910 NEXT E 
920 RETURN 

940 REM BACK 

950 MS5=MID9MM*,4) 

960 IF ASC(M$>=78 THEN MsS=M I < MS, 3 > 

970 F^= M B M 
980 GOTO 820 

990 REM **************************** 

1000 REM TURN 

1010 M^=MIBS(M*,4) 

1020 IF ASC(M«)=78 THEN MS=MIDS(M$,3' 
1030 NUM^VAL<MS) 

1040 Y=INT((NUM+17.5>/45) 

1050 IF Y=0 OR Y=8 THEN RETURN 
1060 FOR J=1 TO Y 

1070 IF LIP=-1 AND AC=0 THEN AC=l:GOTO 11 
30 

1080 IF UP=0 AND AC=1 THEN UP=l:GOTO 113 
0 

1090 IF UP= 1 AND AC=0 THEM AC=-l:GOTO 11 
30 

1100 IF UP=0 AND AC=-1 THEN UP=-l:GOTO 1 
130 

1110 IF UP=-1 AND AC = -1 OR UP=1 AND AC=1 
THEN AC=0:GOTO 1130 

1120 IF UP=-1 AND AC=1 OR UP=1 AND AC = -1 
THEN UP=0 
1130 NEXT J 
1140 RETURN 

1150 REM *************************** 

1160 REM HOME 

1170 AX = INT ( (BREATH+- 5) /2) 

1180 UX=INT((DEPTH+.5)/2> 

1190 up=-i:ac= 0 :rem faces up 

1200 RETURN 
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1220 REM CLEAN 

1230 GOSUB 187.0 
1240 RETURN 

1250 REM *************************** 
1260 REM GO X,Y 

1270 P=0 
1280 P=P+1 

1290 IF MIDS(MS,P, 1>= M , ” THEN 1320 
1300 IF P<LEN(MS) THEN 1280 
1310 RETURN:REM ERROR 
1320 UX=UAL(MIDS(MS,4,P-1>> 

1330 AX=VAL (RIGHTS < MS, LEN (MS) -P) ) 

1340 GOSUB 340 

1350 IF UX<1 OR UX>DEPTH THEN 1380 
1360 IF AC< 1 OR AOBREATH THEN 1380 
1370 ZS(UX, AX)=RS 
1380 RETURN 

1390 REM *************************** 

1400 REM RANDOM 

1410 AX=INT(RND<1)*BREATH> 

1420 UX=INT < RND(1)*DEPTH) 

1430 ZS(UX,AX)=RS 
1440 RETURN 

1450 REM *************************** 
1460 REM REPEAT 

1470 MS=MIDS(MS,4) 

1480 IF ASC(MS'=69 THEN MS=MI< MS, 5> 
1490 RECOUNT=VAL. < MS) 

1500 MARKER=PSM 
1510 RETURN 

1520 REM *************************** 

1530 REM END REPEAT 

1540 RECOUNT =RECOUNT-1 

1550 IF RECOUNT>0 THEN PSN=MARKER 

1560 RETURN 

1570 REM *************************** 
1580 REM FACE 

1590 MS=MIDS (MS, 4) 

1600 IF ASC(MS)=69 THEN MS=MIDS(MS,3) 
1610 NUM=VAL(MS) 

1620 Y=INT((NUM+17.5)/45>*45 
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1630 IF Y=0 OR Y=360 THEN UP=-l:AC=0 

1640 IF Y=45 THEN UP=-1:AC=1 

1650 IF Y=90 THEN UP=0:AC=1 

1660 IF Y=135 THEN UP=l:AC=l 

1670 IF Y=180 THEN UP=l:AC=0 

1680 IF Y=225 THEN UP=l:AC=-l 

1690 IF Y = 270 THEN UP=0:AC=-1 

1700 IF Y=315 THEN UP=-1:AC=-1 

1710 RETURN 

1720 REM ****^*^^>************^***** 
1730 REM INITIALISE 

1740 POKE 53280,0:POKE 53231,0:PRINT" 
iC LR> " 

1750 J=RND(UAL(RIGHTS(TIS,2)>):REM 
RANDOMIZE 

1770 BREATH=40:REM CHARACTERS ACROSS 
1780 DEPTH=24:REM CHARACTERS DOWN 
1790 BREATH=BREATH-1 
1800 DEPTH=DEPTH-3 

1810 UP=-1:AC=0:REM STARTS FACING UP 
1820 DIM AS(20):REM FOR ROBOT PROGRAM 
1830 DIM ZS(DEPTH,BREATH):REM DISPLAY 
1840 TS=”X”:REM PUT SYMBOL HERE YOU 
WANT TO USE FOR ROBOT’S TRAIL 
1850 AX=0:UX=0 

I860 REM FILL ARRAY WITH SPACES 

1370 FOR J=1 TO DEPTH 

1880 FOR K=i TO BREATH 

1390 ZS(J,K)= M 11 

1900 NEXT K 

1910 NEXT J 

1920 RETURN 
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Point Duty Robot 

100 REM POINT-DUTY ROBOT 
110 GOSUB 1730:REM INITIALISE 
120 GOTO 490 

130 REM **************************** 

140 REM 

150 REM 

160 REM 

170 REM 

180 REM 

190 REM 

200 REM 

2.10 REM 

220 REM 

230 REM 

240 REM 

250 REM 

260 REM 

270 REM 

280 REM 

290 REM 

300 REM 

310 REM 

320 DATA ”*” 

330 REM **************************** 
340 REM INT UX,AX 

350 UX=INT<UX+.5):AX=INT < AX+.5) 

360 RETURN 

480 REM **************************** 
490 REM READ PROGRAM 
500 COUNT=COUNT + 1 
510 READ A*< COUNT) 

520 IF A*(COUNT)= -*■ THEN 550 

530 IF COUNT< 20 THEM 500 

540 REM **************************** 

550 REM EXECUTE PROGRAM 

560 PSN=0:REM PROGRAM STEP NUMBER 

570 PSN=PSN+1 

580 IF PSN=21 THEN 580:REM END 
590 FLAG=0 
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600 

MS= 

=AS(PSN) 



610 

IF 

MS="*" 

THEN 610:REM END 

620 

NS= 

=LEFTS(MS,2) 


630 

IF 

NS=”ST M 

THEN 

560:REM START AGAIN 

650 

IF 

ns= ,, fo m 

THEN 

FLAG=1 

660 

IF 

NS= M BA H 

THEN 

FLAG=2 

670 

IF 

NS= M TU“ 

THEN 

FLAG=3 

630 

IF 

NS= 11 HO " 

THEN 

FLAG=4 

700 

IF 

NS="GO" 

THEN 

FLAG=5 

710 

IF 

NS= 11 RA ■ 

THEN 

FLAG=6 

720 

IF 

NS= 11 RE 11 

THEN 

FLAG=7 

730 

IF 

NS=-EN" 

THEN 

FLAG=8 

740 

IF 

NS=”FA" 

THEN 

FLAG=9 

750 

ON 

FLAG GOSUB 780,940,1000,1160,1260 


, 14.00, 1460, 153.0, 1580 
760 GOTO 570 

770 REM **************************** 
780 REM FORWARD 

790 MS=MIBS<MS,4) 

800 IF ASC(MS)=87 THEN MS=MIDS<MS, 6> 
81.0 FS="F" 

820 NUM=VAL(MS) 

830 FOR E=1 TO NUM 

840 IF UX<1 OR UX>DEPTH THEM 880 
850 IF AX<1 OR AX >BREATH THEN 880 
360 GOSUB 2000 

380 IF FS= 11 F 11 THEN UX=UX + UP: AX=AX +AC 
890 IF FS="B M THEN UX=UX-UP:AX=AX-AC 
900 GOSUB 34.0 
910 NEXT E 
920 RETURN 

930 REM **************************** 
940 REM BACK 

950 MS=MIDS(MS,4) 

960 IF ASC(MS)=75 THEN MS=MIDS(MS,3) 
970 FS= M B" 

980 GOTO 820 

990 REM **************************** 
1000 REM TURN 

1010 MS=MIDS f MS,4) 

1020 IF ASC < MS'=78 THEN MS=MIDS(MS,3> 
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103.0 NUM=VAL<M*) 

1040 Y=INT((MUM+11.25)/22.5> 

1050 IF Y=0 OR Y=16 THEN RETURN 
1060 FOR J=1 TO Y 

1065 IF UP=-2 AND AG=0 OR UP=2 AND AC=2 
THEN AC=l:GOTO 1130 

1070 IF UP=-2 AND AC=1 THEN AC=2:GOTO 11 
30 

1075 IF UP=~2 AND AC=2 OR UP=0 AND AC = -2 
THEN UP=-l:GOTO 1130 
1080 IF UP=-1 AND AC=2 OR UP=1 AND AC = -2 
THEN UP=0:GOTO 1130 

1085 IF UP=0 AND AC=2 OR UP=2 AND AC = -2 
THEN UP=l:GOTO 1130 

1090 IF UP=1 AND AC=2 THEN UP=2:GOTO 113 
0 

1095 IF UP=2 AND AC=1 THEN AC=0:GOTO 113 
0 

1100 IF UP=2 AND AC=0 THEN AC=-l:GOTO 11 
30 

1105 IF UP=2 AMD AC=~1 THEN AC=-2:GOTO 1 

130 

1110 IF UP=-1 AND AC=-2 THEN UP=~2:G0T0 
1130 

1115 IF UP=-2 AND AC=~2 THEN AC=-i:GOTO 
1130 

1120 IF UP=-2 AND AC = -1 THEN AC=0 
1130 NEXT J 
1140 RETURN 

1150 REM *************************** 

1160 REM HOME 

1170 AX= INT < ( BREATH+.5) /2) 

1180 UX=INT((DEPTH+.5)/2) 

1190 up=-2: ac= 0 :rem faces up 

1200 RETURN 

1210 REM *************************** 

1220 REM CLEAN 

1230 GOSUB 1870 
1240 RETURN 

1250 REM *************************** 

1260 REM GO X,Y 
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127.0 P=0 
1280 P=P+1 

1290 IF MIDS(MS,P,1)= H ," THEN 1320 
1300 IF P<LEN(MS) THEN 1280 
1310 RETURN:REM ERROR 
1320 UX=VAL(MIDS(MS,4,P-1)) 

1330 AX=UAL(RIGHTS(MS,LEN<MS)-P>) 

1340 GOSUB 340 

1350 IF UX<1 OR UX >BEPTH THEN 1380 
1360 IF AC< 1 OR AOBREATH THEN 1380 
1370 GOSUB 2000 
1380 RETURN 

1390 REM *************************** 

1400 REM RANDOM 

1410 AX=INT (RND ( 1 )*BREATH) 

1420 UX=INT(RND<1>*DEPTH> 

1430 GOSUB 2000 
1440 RETURN 

1450 REM *************************** 
1460 REM REPEAT 

1470 MS=MIDS(MS,4) 

1480 IF ASC(MS)=69 THEN MS=MIDS(MS,5> 
1490 RECOUNT=VAL'MS) 

1500 MARKER=PSN 
1510 RETURN 

1520 REM *************************** 

1530 REM END REPEAT 

1540 RECOUNT—RECOUNT-1 

1550 IF RECOUNT >0 THEN PSN=MARKER 

1560 RETURN 

1570 REM *************************** 
1580 REM FACE 

1590 MS=MIDS(MS,4) 

1600 IF ASC(MS>=69 THEN MS=MIDS(MS,3) 
1610 NUM=VAL(MS > 

1620 Y=INT((NUM+17.5)/45)*45 

1630 IF Y=0 OR Y=360 THEN UP=-2:AC=0 

1635 IF Y = 22 - 5 THEN UP=~2“. AC=1 

1640 IF Y=45 THEN UP=-2:AC=2 

1645 IF Y=67.5 THEN UP=~1:AC=2 

1650 IF Y=90 THEN UP=0:AC=2 
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1655 
166.0 
1665 
1670 
1675 
1630 
1635 
1690 
1695 
1700 
1705 
1710 
1720 
1730 
1740 


IF Y = 112.5 THEM UP=i:AC=2 
IF Y = 135 THEN UP=2:AC=2 
IF Y= 1 57.5 THEN UP=2:AC=1 
IF Y = 180 THEN UP=2:AC=0 
IF Y=202.5 THEN UP=2:AC=-i 
IF Y=225 THEN UP=2:AC=-2 
IF Y=247.5 THEN UP=i:AC=-2 
IF Y=270 THEN UP=0:AC = -2 
IF Y=292.5 THEN UP=-l:AC=-2 
IF Y=315 THEN UP=-2:AC=-2 
IF Y=337.5 THEN UP=-2:AC=-1 
RETURN 

REM **•* ^************************ 
REM INITIALISE 
PRINT M 


v CLR I 11 

1750 J =RND(VAL (RIGHTS ( TIS,2) ) ) :REM 
RANDOMIZE 

1770 BREATH=320:REM CHARACTERS ACROSS 
1730 DEPTH=200:REM CHARACTERS DOWN 
1790 BREATH=BREATH-1 
1300 DEPTH=BEPTH-3 

1310 UP=-2: AC=0:REM STARTS FACING UP 
1820 DIM A*(20):REM FOR ROBOT PROGRAM 
1330 REM TURN ON HIRES SCREEN 
1340 BASE=2*4096:POKE 53272,PEEK(53272>O 
R3 

1350 POKE 53265,PEEK(53265)OR32 
1360 REM SET SCREEN TO CYAN AND BLACK 
1870 FOR I=BASE TO BASE+7999:POKE 1,0:ME 
XT I 

1330 FOR 1 = 1024 TO 2023‘.POKE 1,3 “-NEXT I 
1920 RETURN 

2000 REM ****** SET A POINT ********* 
2010 ROW=INT(UX/8) 

2020 CHAR=INT(AX/8) 

2030 LINE=UXAND7 
2040 BIT=7-(AXAND7) 

2050 BYTE=BASE+ROW*320+CHAR*8+LINE 
2060 POKE BYTE,PEEK(BYTE)0R2 A BIT 
2070 RETURN 
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Connect Four 


10 REM CONNECT FOUR 
20 REM A. W. PEARSON 

30 POKE 53280,0:POKE 53281,0:PRINT" 

< CLR > C WHT >" 

40 PRINT 
50 PRINT 

60 PRINT"CONNECT FOUR" 

70 PRINT 

80 PRINT "ENTER YOUR MOVE AS A NUMBER BE 
TWEEN" 

90 PRINT "1 AND 8, ENTER O FOR A NEW GAM 
E" 

100 FOR F=1 TO 1000:NEXT F 
110 DIM AS< 10,10) ,B(10,2) 

120 FLAG=0 

130 REM CHANGE NEXT LINE FOR YOUR OWN 
CHOICE OF SYMBOLS <CS-COMPUTER) 

140 CS="M":HS="0":REM M FOR MACHINE! 

150 FOR F=1 TO 8 
160 B(F,1)=6 
170 NEXT F 
180 FOR F=1 TO 6 
190 FOR G=1 TO 8 
200 AS < F,G > =". " 

210 NEXT G 
220 NEXT F 

230 REM *****************^**^***** 

240 REM ACCEPT HUMAN MOVE 
250 GOSUB 430 
260 PRINT:PRINT" 

{PUR>YOUR MOVE..." 

270 INPUT A:PRINT" 

< WHT >"; 

230 IF A=0 THEN RUN 

290 IF A<1 OR A >9 THEN 270 

300 L=0 

310 IF AS < L +1,A)< >". " OR L = 6 THEN 340 
320 L=L +1 
330 GOTO 310 
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340 IF L = 0 THEN 270 

350 A«(L,A)=HS 

360 B(A,1)=B(A, 1 > - 1 

370 GOSUB 430 

380 GOSUB 560 

390 GOSUB 430 

400 GOTO 260 

420 REM PRINT BOARD 
430 PRINT” 

{ C L R > " 

440 FOR F=1 TO 6 
450 FOR G=1 TO 8 
460 PRINT AS5(F,G>; 

470 NEXT G 

480 PRINT 

490 NEXT F 

500 PRINT”12345678” 

510 PRINT 

520 IF FLAG=1 THEN PRINT”I HAVE WON”:END 
530 RETURN 

540 REM ************************** 

550 REM COMPUTER MOVES 
560 PRINT”MV MOVE...” 

570 MV=0 

580 FOR F=1 TO 8 

590 B(F,2 >=0 

600 NEXT F 

610 FOR F=1 TO 8 

620 FOR X= -1 TO 1 

630 FOR Y=-1 TO 1 

640 IF B < F,1)=0 THEN 680 

650 IF A«(B(F f 1)+X,F+Y)=”” OR AS(B(F,1)+ 
X,F+Y)=”THEN 680 

660 IF A$(B(F,1)+X,F+Y)=H$ THEN GOSUB 81 

0 

670 IF A*(B(F P 1)+X f F+Y>=C* THEN GOSUB 91 
0 

680 NEXT Y 
690 NEXT X 
700 NEXT F 
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710 P=0 

720 FOR F=1 TO 8 

730 IF B < F , 2) >P THEN P=B(F,2> : N=F 

740 NEXT F 

750 AS<B<N,1),N>=CS 

760 B < N, 1)=B(N,1)-1 

770 P=0 

780 N=0 

790 RETURN 

800 REM ************************** 

810 MV=2 
820 M1=MV 

830 IF AS(B<F,1)+<X*2>,F+(Y*2)) =HS THEN 
MU=MV+10 

840 IF AS<B(F, 1) -X,F-Y>=HS THEN MV=MV+20 
850 IF MVOM1 + 10 THEN 870 

860 IF AS (B (F, 1 ) + (X*3) , F+ <Y*3> ) =HS THEN 
MV=MU+1000 

870 B*F,2)=B(F,2) + MU 
880 M1=0 
890 RETURN 

900 REM ************************** 

910 MV=2 
920 M1=MV/ 

930 IF AS<B<F,1)+<X*2),F+<Y*2)>=CS THEN 
MV=MV+9 

940 IF AS<B<F,1)-X,F-Y)=CS THEN MV=MV+20 
950 IF MVOM1+9 THEN 970 

960 IF AS < B(F,1) + (X*3) ,F+(Y*3) )=CS THEN 
MV=MV+2000:FLAG=1 
970 B<F,2)=B'F,2>+MV 
980 RETURN 
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Quevedo Chess Machine 

J0 REM QUEVEDO CHESS MACHINE 
20 GOSUB 15102REM INITIALISE 
30 GOTO 60 

40 GOSUB 1320:REM PRINT BOARD 
50 GOSUB 110:REM COMPUTER MOVES 
60 GOSUB 1320 

70 GOSUB 1120:REM ACCEPT HUMAN MOVE 
80 GOTO 40 
90 END 

100 REM ************ 

110 REM COMPUTER MOVES 
120 IF QUIT =1 THEN 1080 
130 W1=WK 

140 REM ************ 

150 REM MOVE ONE 

160 MOVE^l 

170 KM=INT(BK/10) 

180 RM=INT(R/10) 

190 IF ABS(KM-RM)>3 THEN 330 
200 A(R>=46 

210 X=INT ( BK/10):Y=INT (R/ 10) 

220 IF X>Y THEN 270 

230 IF A<R“10)< >46 THEN 270 

240 IF A(R-19)=BK OR A(R~21)=BK OR A<R-2 

0)=BK THEN 270 

250 IF A(R-11)=BK OR A<R-9)=BK THEN 270 
260 R=R-10:GOTO 300 

270 IF A(R+10)< >46 THEN A(R)=R:GOTO 330 

280 IF A < R+19)=BK OR A(R + 21)=BK OR A(R + 2 

0)=BK THEN A<R)=R:GOTO 330 

290 R=R+10 

300 A<R>=ASC<"R"> 

310 RETURN 

320 REM ************ 

330 REM MOVE TWO 
340 M0VE=2 
350 KM=BK-10*KM 
360 RM=R-10*RM 

370 IF ABS(KM-RM><2 THEN 480 
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38.0 A (R) =46 

390 IF R>11 THEN IF <A(R-12)=BK OR A<R-2 
>=BK OR A(R + 8 > =BK) THEN A(R)=R:GOTO 480 
400 IF R>11 THEN IF (A(R-1)=BK OR A(R-11 
)=BK OR A(R + 9)=BK) THEN A(R)=R:GOTO 480 
410 Y=BK-10*INT(BK/10) 

420 Z=R-10*INT(R/10) 

430 IF (Z=l OR Y>Z) AND A(R+1)=46 THEN R 

=R+l:GOTO 450 

440 R=R — 1 

450 A(R > =ASC( H R"> 

460 RETURN 

470 REM ************ 

480 REM MOVE THREE 
490 MQVE=3 

500 WM=WK-10*INT(WK/10) 

510 BM=BK-10*INT(BK/10) 

520 IF ABS(WM-BM > < 3 THEN 600 

530 IF A(WK-1> < >46 OR A(WK-18)=BK OR A(W 

K-2)=BK OR A(WK + 8)=BK THEN 610 

540 IF A < WK-11)=BK OR A(WK+9)=BK OR A<WK 

-22>=BK THEN 610 

550 A(WK)=46 

560 WK = WK-1 

570 A(WK)=ASC("K”) 

590 REM ************ 

600 REM MOVES FOUR, FIVE AND SIX 
610 Z=ABS(INT(BK/10)-INT(WK/10)) 

620 IF Z=0 THEN 950 

630 IF 2*INT(Z/2)= Z THEN 790 

640 REM ************ 

650 REM MOVE FOUR 
660 MOVE=4 
670 A(R > =46 

680 IF A < R-10)<>46 THEN 720 

690 IF A(R-9)=BK OR A(R-11)=BK THEN 720 

700 IF A < R-19)=BK OR A'R-21)=BK OR A(R-2 

0)=BK THEN 720 

710 R=R-10:GOTO 760 

720 IF A(R+10)< >46 THEN A(R>=R:GOTO 790 
730 IF A(R+19)=BK OR A(R+21)=BK OR A(R+2 
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0)=BK THEN A(R>=ASC(”R"): GOTO 790 

740 IF A'R+11)=BK OR A<R+9)=BK THEN A < R) 

=ASC("R”):GOTO 790 

750 R=R +10 

760 A <R> = ASC <"R M > 

770 RETURN 

780 REM ************ 

790 REM MOVE FIVE 

800 M0VE=5 

810 J=INT(BK/10) 

820 K=BK-10*J 
830 L=INT < WK/10) 

840 M=WK-10*L 

850 2=10:IF J<L THEN Z=-10 

860 X=l:IF K<M THEN X=-l 

870 A(WK)=46 

880 W1=WK 

890 WK=WK+Z+X 

900 G=ABS(WK-BK) 

910 IF G=1 OR G=9 OR G=10 OR G=ll THEN W 
K=Wl:A(WK)=751 GOTO 950 
920 A(WK)=ASC("K H ) 

930 RETURN 

940 REM ************ 

950 REM MOVE SIX 
960 M0VE=6 
970 A(R > =46 

980 IF R>11 THEN IF A(R-12)=BK OR A(R-2) 
=BK OR A (R + 8) =BK OR A(R-l)OR THEN 1070 
990 IF R>11 THEM IF <A<R-1)=BK OR A(R-11 
)=BK OR A(R + 9 > =BK THEN 1070 
1000 Y=BK-10*1NT(BK/10) 

1010 Z=R-10*INT(R/10) 

1020 IF <Z=i OR Y >Z) AND A<R+i>=46 R=R+1 

:GOTO 1040 

1030 R=R-i 

1040 A(R)=ASC(“R") 

1050 RETURN 

1060 REM ************ 

1070 GOSUB 1320 
1080 PRINT:PRINT 
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1.090 PRINT" I CONCEDE TO THE MASTER" 

1100 END 

1110 REM ************ 

1120 REM ACCEPT HUMAN MOV/E 
1130 REM ENTER 'Q' TO QUIT 
1140 MOVE=0 

1150 PRINT">> MOVE TO (LETTER, NO.)"; 
1160 INPUT G* 

1170 IF GS="Q" THEN 1280 
1180 IF LEN(GS5)<>2 THEN 1160 
1190 Z=ASC<G$> 

1200 IF Z< 65 AND Z>72 THEN 1160 
1210 X=VAL (RIGHTSMG*, 1 ) ) 

1220 IF X<1 OR X >8 THEN 1160 

1230 A <BK)=46 

1240 BK=10*(Z-64>+X 

1250 IF A(BK)=ASC("R") THEN QUIT=1 
1260 A ( BK ) =ASC ( "<$" ) 

1270 RETURN 
1280 PRINT:PRINT 

1290 PRINT"THANKS FOR THE GAME" 

1300 END 

1310 REM ************ 

1320 REM PRINT BOARD 
1330 PRINT" 

{ CLR > " 

1340 PRINT:PRINT 

1350 IF MOVE >0 THEN PRINT"I USED MOVE"MO 
VE 

1360 IF MOVE=0 THEN PRINT 

1370 print:print 

1380 PRINT TAB(11);"ABCDEFGH" 

1390 FOR J=8 TO 1 STEP -1 
1400 PRINT TAB(8);J; 

1410 FOR K=10 TO 80 STEP 10 
1420 PRINT CHR$(A(J+K)); 

1430 NEXT K 
1440 PRINT J 
1450 NEXT J 
1460 PRINT 

1470 PRINT TAB(11)5 "ABCDEFGH" 
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1480 PRINT:PRINT 

1490 RETURN 

1500 REM ************ 

1510 REM INITIALISATION 

1520 POKE 53280,0:POKE 53281,0:PRINT" 
<CLR> " 

1530 J=RND<V/AL<RIGHT*<TI*,2> ) ) : REM 
RANDOMIZE 
1540 MOVE=0 
1550 QUIT=0 
1560 DIM A<130) 

1570 FOR J=10 TO 80 STEP 10 
1580 FOR K=i TO 8 

1590 A < J + K)=46:REM ASCII OF M . " 

1600 NEXT K 
1610 NEXT I 

1620 REM ** PLACE PIECES ** 

1630 REM BLACK KING - HUMAN 

1640 BK=INT < RND(1)*3)+1 

1650 BK=10*BK+BK+INT(RND(1)*5) 

1660 A < BK)=ASC<) 

1670 REM WHITE KING - COMPUTER 

1630 WK=INT(RND <1)*4)+4 

1690 WK=10*WK+WK+INT(RND <1)*2) 

1700 IF WK=BK THEN 1680 
1710 A<WK>=ASC("K"> 

1720 REM WHITE ROOK - COMPUTER 
1730 R=INT(RND<1>*4>+4 
1740 R=10*R+R+INT(RND(1)*2) 

1750 IF R=BK OR R=WK THEN 1730 
1760 IF ABS ( R-BK)<12 THEN 1730 
1770 A <R> =ASC < 11 R" > 

1780 RETURN 
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Washington D.C 


1.0 REM WASHINGTON D.C. 

20 GQSUB 1160!REM INITIALISE 

40 REM MAJOR CYCLE 
50 P=INT(P+<P*273/ML)) 

60 GOSUB 160:REM PRINTOUT 
70 GOSUB 510:REM CALCULATE 
80 REM NOW CHECK END GAME 
90 GOSUB 710:REM STANDARD OF LIVING 
100 GOSUB 780:REM INFLATION RATE 
110 GOSUB 840:REM UNEMPLOYMENT 
120 IF GAME=1 THEN PRINT" 

{CLR >":GOTO 890 
130 GOTO 50 

140 REM ^*^^^^******^^*^******** 

150 REM PRINTOUT 
160 PRINT" 

(CLR> i WHT >" 

170 PRINT "PRESIDENT "» A ^\ ": " 

180 PRINT"YOUR ADMINISTRATION HAS BEEN I 
N POWER FOR"Y+Z/4”YEARS" 

190 PRINT"- 

_it 

200 PRINT"-STATE OF THE NATION- 

__ it 

210 PRINT"- 

__H 

220 PR I NT "POPULATIONS 

230 PRINT"NO. UNEMPLOYED"INT(U>" "INT(1 

00*U/P>"%" 

240 PRINT "CURRENT WAGES *5" WO" INFLATION" 
INT(IP)"%" 

250 PR I NT " GOVT . EXPENDITURE LAST QTR. $»M 
"GE 

260 PRINT "UNEMPLOYMENT COST *M"INT(10*G 
U) / 10 

270 PRINT "INCOME FROM TAXES ^M"INT(10*G 

I > / 10 
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280 PRINT"BUDGET SURPLUS(+)/DEFICIT< -) « 
M"INT<BD*10>/10 

290 PRINT"GROSS DOMESTIC PRODUCT SM"INT< 
GDP*10>/10 

300 IF Y+Z/4>.5 THEN PRI NT" CHANGE IN LIV 
ING STANDARD "; 

305 IF Y+Z/4>.5 THEN PRINTINT<<2*((RGDP/ 
AGDP)*100)-100) /3 > "% M 

310 PRINT"- 

__ii 

320 PRINT"PUBLIC INVESTMENT"Y"Q"Z"SM"INT 
(IV*10>/10 

330 PRINT"- 

___ ii 

340 PRINT"OK, PRESIDENT "5 A*5 ". . . " 

350 INPUT "ENTER GOVERNMENT SPENDING $M" 
5 GE 

360 INPUT " 

{ PUR>ENTER COST OF WAGES #M"JWN 

370 PRINT"IS YOUR ADMINISTRATION IN FAVO 

R OF" 

380 PRINT"IMMIGRATION THIS QUARTER <Y/N> 

7 

{WHT }" 

390 GET X* 

400 IF X*<>"Y* AND X*<>"N" THEN 390 
410 PRINT TAB(20)5 "OK..."5 XS 
420 FOR H=1 TO 1000:NEXT H 
430 IF X$<>"Y" THEN RETURN 
440 PRINT " 

<PUR>HOW MANY IMMIGRANTS WILL YOU ALLOW 
INTO THE US" 

450 INPUT M:PRINT" 

{PUR}"; 

460 IF M<0 THEN 450 
470 P=P+M 
480 RETURN 

490 REM *************************** 

500 REM CALCULATIONS 
510 CN=CN+<CN*IP/100) 

520 U=P*(GE+IV)/(CN*10> +P*(IP/1000) 
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530 gu=li*wn/ml:rem unemployment cost 

540 GI=<(<P-U)*WN*.4>/ML):REM INCOME 

FROM TAXES 

550 bd=bd+gi-gu-ge:rem BUDGET DEFICIT 
560 AGDP=AGDP*<1+(IP/1000>) 

570 GDP=GE+IV+(<P-U>*WN/ML> 

580 RGDP=GDP*440/AGDP 

590 IP=( CSE+IV) /CN*. l-MWN/WO) / 100) *100 
600 IV= < CN*67) /<IP*IP> 

610 UO=WN 

620 Z=Z+l:IF Z >4 THEN Z=i:Y=Y+l 
630 RETURN 

650 REM CHECK BUDGET DEFICIT 
660 IF BD>-1000 THEN RETURN 
670 GAME =1 
680 FLAG=1 
690 RETURN 

700 REM *************************** 

710 REM CHECK STANDARD OF LIVING 
720 IF Y< - 75 THEN RETURN 

730 IF INT < (2*( (RGDP/AGDP)*100)-100) /3) > 

-15 THEN RETURN 

740 GAME-1 

750 FLAG=2 

760 RETURN 

770 REM *************************** 

780 REM CHECK INFLATION RATE 
790 IF IP<15 THEN RETURN 
800 GAME=1 
810 FLAG=3 
820 RETURN 

830 REM *************************** 

840 REM CHECK UNEMPLOYMENT 

850 IF INT(U*100/P)<15 THEN RETURN 

860 GAME=1 

870 FLAG=4 

880 RETURN 

900 REM END OF THE GAME 

910 PRINT"PRESIDENT "5 AS;", YOUR" 
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920 PRINT"ADMINISTRATION’S POOR ECONOMIC 


930 PRINT"PERFORMANCE HAS LED TO AN UNAC 
CEPT ABLE" 

940 IF FLAG=1 THEN PRINT"BUDGET DEFICET" 
950 IF FLAG=2 THEN PRINT"DROP IN THE STA 
NBARD OF LIVING” 

960 IF FLAG=3 THEN PRINT"RISE IN THE INF 
LATION RATE" 

970 IF FLAG-4 THEN PRINT "RISE IN UNEMPLO 
YMENT” 

980 PRINT" AMONG OTHER THINGS_" 

990 PRINT"-- 

_ii 

1000 PRINT"THE LACK OF CONFIDENCE IN YOU 
R" 

1010 PRINT"ADMINISTRATION IS SO BAD THER 
E ARE" 

1020 PRINT"CALLS FOR YOU TO RESIGN_YOU 

STEP" 

1030 PRINT"ASIDE TO ALLOW THE VICE-PRESI 
DENT TO" 

1040 PRINT" OCCUPY THE OVAL OFFICE 

ii 

1050 FOR H=1 TO 1000:NEXT H 

1060 PRINT"-- 

__H 

1070 PRINT"YOU WERE PRESIDENT FOR"Y+<Z*. 
25)"YEARS" 

1080 PRINT"DURING YOUR TERM OF OFFICE, T 
HE" 

1090 PRINT"POPULATION ROSE BY"P-3*ML 
1100 PRINT"THE UNEMPLOYED RATE BECAME"IN 
T(U*1000/P>/10"%" 

1110 PRINT"AMD THE INFLATION RATE BECAME 
"INT(IP*I0>/10"%" 

1120 PRINT"STANDARD OF LIVING CHANGED BY 
"INT(<2*<<RGDP/AGDP)#100>-100)/3) 

1130 PRINT"AND THE BUDGET SURPLUS/DEFICI 
T WAS SM"INT(BD*10>/10 

1140 END 
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1150 REM ************************** 

1160 REM INITIALISE 

1170 POKE 5323.0,0: POKE 53231,0: PRINT " 

{ CLR } ” 

1180 H=RND(VAL(RIGHTS<TI$,2))):REM 
RANDOMIZE 
J190 ML=1000*1000 
1200 P=3*ML:REM POPULATION 
1210 U=P/10:REM UNEMPLOYMENT 
1220 IV=236:REM INVESTMENT 
1230 GE=118:REM GOVERNMENT EXPENDITURE 
1240 GU=0".REM COST OF UNEMPLOYMENT 
1250 GI=0:REM INCOME FROM TAXES 
126.0 WN=100:REM NEW WAGES 
1270 WO=100:REM OLD WAGES 
1230 IP=5:REM INFLATION PERCENT 
1290 GDP=440:REM GROSS DOMESTIC PRODUCT 
1300 AGDP=440:REM BASE YEAR GDP 
1310 RGBP=440:REM REAL GDP 
1320 CN=354:REM ECONOMIC CONSTANT 
(USED THROUGHOUT SIMULATION) 

1330 2=1:GAME=0:FLAG=0 
1340 Y=0SREM YEAR 

1350 PRINT "ENTER YOUR LAST NAME” 

1360 INPUT A$ 

1370 RETURN 
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Stock Market 


10 REM STOCK MARKET 

20 POKE 53280,0:POKE 53281,0:PRINT" 

<CLR> M 

30 c=int(rnd<v;al(right^<ti^,2) ))) :rem 

RANDOMIZE 

40 DIM S (5), M < 5), P (5), D f 5) 

50 S(1)=1.49:S(2)=1.99:S(3)=2.49:S(4)=2. 
99:S < 5)=3.49 

60 N(1)=2000:N < 2)=1500:N < 3)=1200:N(4)=10 
00:N(5'=800 

70 BB=265: TV= 15000:QQ=15000:DAY=1 
80 PRINT:PRINT M 

CPURIENTER YOUR GOAL FOR THIS SIMULATION 

n 

9 

90 PRINTTABC8);"$16,000 TO 33100,000" 

100 INPUT GAL:REM INPUT GOAL 
110 IF GAL<16000 THEN PRINT " 

CWHTITQO LOW! 11 : GOTO 80 

120 IF GAL>100*1000 THEN PRINT ■ 

{WHT >TOQ HIGH!“:GOTO 80 

130 REM ********************* 

140 REM MAJOR LOOP 
150 FOR C=1 TO 5 

160 REM ADJUST THE 55 IN NEXT LINE TO 

MODIFY GAME? 30 VERY HARD, 30 VERY EASY 

170 B < C)=INT(RND <1)*55 > +1 

180 P(C)=INT <RND(1> * <100-D(C) ) )+l 

1.90 NEXT C 

200 GOSUB 230 

210 GOTO 460 

220 REM ********************* 

230 REM PRINTOUT 
240 PRINT” 

ICLR >IWHT >” 

250 PRINT”- 


260 PRINT “DAY”DAY” YOUR GOAL IS $ 

"GAL 

270 PRINT"- 
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28.0 PRINT “COMPANY NUMBER:” 

290 PRINT TAB(2) 515 TAB(9) 5 2;TAB(16) ;3;TA 
B(25> S4;TAB(35> ;5 

300 PRINT "CHANCE OF INCREASE (%):” 

310 PRINT TAB<2HP(1) ;TAB<9> ;P<2)*TAB<16 
) ;p<3> ;TAB(25) ;P(4) 5 TAB(35) SP(5> 

320 PRINT "CHANCE OF DECREASE (%> : " 

330 PRINT TAB(2) ;D(1) 5 TAB(9) ;B(2> ;TAB(16 
) ?D(3) STAB(25) ;D<4) 5 TAB(35) SD(5) 

340 PRINT"CURRENT VALUE PER SHARE:" 

350 PRINT "*5" 5 INT (SCI >*100) / 1005 TAB (8) S " 
S"5 INT(S(2)*100) /100; 

360 PRINT TAB<15)5"*"5INT(S<3)*100)/1005 
TAB(23)55INT(S(4)*100)/1005 
370 PRINT TAB(30)SSINT(S(4)*100 )/100 
380 PRINT"NO * OF SHARES HELD:" 

390 PRINT TAB(2)SN(1)5TAB(9);N<2)5TAB(16 
) 5 N(3) STAB(25) 5 N(4) STAB(35) 5 N(5) 

400 PRINT"BANK $"INT(BB)" TOTAL WORTH S" 
INT(100*TV)/100 

410 PRINT"- 


420 IF TV>GAL THEN PRINT"YOU’VE HIT YOUR 
FINANCIAL GOAL?":END 
430 RETURN 

440 REM ********************* 

450 REM ** SELL ** 

460 PRINT" 

i PUR >DO YOU WANT TO SELL ANY SHARES (Y/N 
) ?*' 

470 GET A$ 

480 IF ASO"Y" AND ASO M N" THEN 470 
490 IF A*="N" THEN 690 
500 GOSUB 230 
510 PRINT" 

<WHT}WHICH ONES TO SELL?"5 
520 GET A* 

530 IF A$<"1" OR AS>"5" THEN 520 
540 C=VAL(A$> 

550 PRINT" 
i WHT > OK"C 
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56.0 PRINT " 

{PUR>HOW MANY OF M C M TO SELL”; 

570 INPUT N 

580 IF N>N(C) THEN PRINT" 

i WHT>YOU DON’T HAVE THAT MANY!":GOTO 570 
590 REM ********************* 

600 REM ADJUST FIGURES AFTER SALE 
610 BB=BB+S<C)*N:REM ADD VALUE TO BANK 
620 N(C)=N(C)~N:REM SUBTRACT NO. SOLD 
630 TV=0:REM SET TOTAL WORTH TO ZERO 
640 REM NOW DETERMINE CURRENT WORTH 
650 FOR C=1 TO 5 
660 TV=TV+N(C>*S(C) 

670 NEXT C 

680 tv=tv+bb:rem ADD IN BANK BALANCE 
690 GOSUB 230 

700 REM ********************* 

710 REM ** BUY ** 

720 PRINT " 

{PUR IDO YOU WANT TO BUY ANY SHARES (Y/N) 

?». 

730 GET AS 

740 IF AS< >" Y" AND ASO"N" THEN 730 
750 IF AS="N" THEN 890 
760 GOSUB 230 
770 PRINT" 

i PUR>WHICH COMPANY TO BUY?"5 
780 GET AS 

790 IF AS<”1" OR AS>"5" THEN 780 
800 C=VAL(AS > 

810 PRINT" 

{WHT > OK"C 

820 PRINT" 

{PUR>HOW MANY OF"C"TO BUY"; 

830 INPUT N 

840 IF N*S(C)>BB THEN PRINT" 

i WHT >YOU DON’T HAVE ENOUGH MONEY!":GOTO 

830 

850 REM ********************* 

860 REM ADJUST FIGURES AFTER BUY 
870 BB=BB-S(C)*N 
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880 N (C > =N ( C ) + N 
890 TV=0 

900 FOR C=1 TO 5 
910 TV=TV+N<C)*S<C> 

920 NEXT C 
930 TV=TV+BB 
940 GOSUB 230 

950 REN ********************* 

960 REM MODIFY ALL INDICATORS 
970 TV=0 

980 FOR C=1 TO 5 

990 K=INT < RND(1)*100)+1 

1000 IF K< P < C) THEN S(C)=S(C)*(1+(P<C)/I 
000 ) > 

1010 K=INT < RND <1)*100)+1 

1020 IF K<D(C) THEN S(C)=S(C>/ (1+(P(C)/1 
000 ) ) 

1030 TV=TV+<S(C)*N<C)) 

1040 NEXT C 

1050 TV=TV+BB 

1060 QQ=QQ+1 

1070 W== <TV*100/QQ)-100 

1080 IF W=0 THEN W=.1 

1090 W=W + 6 

1100 IF W<1 THEN W=1 

1110 IF W > 15 THEN W=15 

1120 RESTORE 

1130 FOR T=1 TO W 

1140 READ AS 

1150 NEXT T 

1160 PRINT 

1180 REM GIVE RATING, START NEW ROUND 
1190 PRINT- 

{WHT > YOUR RATING AFTER THAT ROUND OF" 
1200 PRINT"TRADING IS ’ w ;AS5 w,m 

1210 print:print 

CPUR} <PRESS SPACEBAR TO CONTINUE > " 

1220 GET ZZSIIF ZZSO” " THEN 1220 
1230 DAY=DAY+1 
1240 GOTO 150 
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1250 DATA 
1260 DATA 
1270 DATA 
1280 DATA 
VERAGE" 
1290 DATA 
D" 

1300 DATA 
VE" 


■HOPELESS M , -VERY, VERY POOR- 
" TERRIBLE " , " AWFUL", "BAD" 

H VERY ORDINARY",■AVERAGE■ 
"REASONABLE","A LITTLE ABOVE A 

"FAIRLY GOOD","GOOD","VERY GOO 

"GREAT","EXCELLENT","SUPERLATI 
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Detroit City 


10 REM DETROIT CITY 

20 GOSUB 1640:REM INITIALISE 

30 GOTO 110 

40 MT=MT +1 

50 GOSUB 650 

60 IF TP>200 THEN 1560 

70 PRINT” 

{CYN>DO YOU WANT TO RESIGN (Y/N)?<WHT >” 
80 GOSUB 1010 

90 IF A$=”Y" THEN PRINT”OK, CHIEF":END 
100 GOSUB 1380 
110 GOSUB 650 

120 FOR T=i TO 1000:NEXT T 
130 GOSUB 850 

140 PRINT"DO YOU WANT TO EXPAND OUTPUT ( 
Y/N)? 11 

150 GOSUB 1010 

160 IF AS=”Y" THEN 1080 

170 IF SF=1 THEN 210 

180 PRINT"DO YOU WANT TO SELL FACTORY 4 
(Y/N)? M 

190 GOSUB 1010 

200 IF A$= M Y tt THEN 1250 

210 GOSUB 650 

220 INPUT "HOW MANY EMPLOYEES TO HIRE"5H 
E 

230 NE=NE+HE:IF HE>0 THEN 260 

240 INPUT "HOW MANY EMPLOYEES TO FIRE";H 

E 

250 NE=NE-HE 
260 GOSUB 650 

270 pi=as:rem SET PI EQUAL TO OLD PRICE 
280 INPUT "WHAT IS YOUR SELLING PRICE"5 A 
S 

290 REM NEXT LINE REJECTS TOO BIG A 
CHANGE IN SELLING PRICE 
300 IF ABS(Pl-AS)>2500 THEN PRINT"TOO BI 
G A CHANGE FOR THE MARKET":GOTO 280 
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310 PRINT" 

C CLR >" 

320 PRINT:PRINT:PRINT 

330 MI=INT<RND(1>*4000)+48*1000:REM THIS 
MONTH’S SALES BY INDUSTRY 
340 C=C+l:REM COUNTS NUMBER OF MONTHS 
350 IF C< 3 THEN 470 

360 M=INT(RND<U*10+1>/4:REM INFLATION 
370 PRINT” 

{ C L R > " 

380 PRINT”INFLATION RATE THIS QUARTER IS 
.. M 

390 PRINT"AVERAGE WAGES BILL WILL MOW RI 
SE TO" 

400 AW=<AW*M/100)+AW 

410 jPRINTTAB (8) 8 INT (AW) " PER EMPLOYE 
E" 

420 GET ZZ*:IF ZZ$<>"" THEN 420 

430 PRINT:PRINTTAB(12)5"ANY KEY TO CONTI 

NUE M 

440 GET ZZ$:IF ZZ^="” THEN 440 
450 FA=(FA*M/100)+FA 
460 C=0 

470 Y(1)=NE*15/12:REM SALES BASED ON 
NUMBER OF EMPLOYEES 
480 Y<2>=(100-AS/FA)*MI/100:REM SALES 
BASED ON MONTHLY INDUSTRY SALES 
490 REM NEXT LINE SETS LOWEST FIGURE 

FROM Y<1), Y(2), M(5) EQUAL TO Y(3) 
500 IF Y'1XY(2) AND Y(1KM(5) THEN Y<3) 
=Y(1>:GOTO 540 

510 IF Y<2)<Y(1) AND Y(2XM(5) THEN Y(3) 
=Y ( 2 > -.GOTO 540 
520 Y(3)=M(5) 

530 REM NEXT LIMES DETERMINE 
MONTHLY SALES 

540 IF ABS(P1-AS) < 501 THEN Y(3)=3.6*Y(3) 
/ 3 

550 IF Y * 3)>M { 5) THEN Y<3)=Y'3)-1975:GOT 
O 550 

560 MC=(MC*M/100>+MC 
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570 EF^Y<3)/M(5)*100:REM EFFECIENCY % 

AS SALES DIVIDED BY TOTAL OUTPUT 
580 AC= < MC* ( ABS < 85-EF ) /3) / 1.00)+MC: REM 
AVERAGE COST PER VEHICLE 
590 MP-((Y(3>*(AS-AC))-<NE*AW/12>):REM 
MONTHLY PROFIT 
600 MP=INT(MP/ (i00*1000) ) 

610 TP-TP+MP/10:REM TOTAL PROFIT 

IN MILLIONS 

620 M=0 
630 GOTO 4.0 

640 REM **************************** 

650 REM REPORT PRINTOUT 
660 PRINT" 

CCLRI ” 

670 PRINT"INDUSTRY SALES"MI"IN MONTH"MT 
680 IF MT >0 THEN PRINT"YOUR SALES: "INTCY 

* 3) > " < " I NT < Y * 3 > * 1.00.0 /MI) / 1.0 " % OF TOTAL 

> " 

690 PRINT"- 

__ » 

7.00 PR I NT "YOU HAVE"NE" EMPLOYEES" 

710 PRINT"AVERAGE WAGES ARE $"AW 

720 PRINT " OR S*M " I NT < A W*NE / < 1.0.0* 100.0) / 1 

2 W 10"PER MONTH" 

730 PRINT"- 


74.0 IF MT = 0 THEN RETURN 

750 PR I NT" AVERAGE COST PER VEHICLE IS =*" 
INT(AC > 

760 PR I NT "AND AVERAGE SELLING PRICE IS <£ 
"INT(AS) 

770 PR I NT "SO THE AVERAGE PROFIT IS 35" INT 
(AS-AC* 

780 PRINT "OR *M" INT ( <AS-AC)*Y (3) /( 10.0*1.0 
00 ) ) •' 10 "PER MONTH" 

790 PRINT"- 

__ ii 

800 PR I NT "PROF IT FOR THE MONTH IS S3M"MP/ 
10 

810 PR I NT "8c TOTAL PROFIT TO DATE IS $M" I 
NT(TP*10*,'10 
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820 PRINT”- 

__ II 

83.0 RETURN 

840 REM ************^***^***^***^ 

850 REM MONTH REPORT 
860 PRINT" 

{CLR}" 

870 IF MT >0 THEN PRINT"YOUR MONTHLY SALE 
S ARE"INT (Y <3> ) 

880 PRINT"- 

_ii 

890 PRINT-MAXIMUM MONTHLY OUTPUT:" 

900 PRINT TAB(3);"FACTORY 12 "INT(M<1>) 
910 PRINT TAB(3);"FACTORY 22"INT(M(2)) 
920 PRINT TAB(3);"FACTORY 32"INT(M(3)) 
930 IF SF= 1 THEN 960 

940 PRINT TAB(3);"FACTORY 42"INT(M(4>) 
950 PRINT"- 

__H 

960 PRINT "TOTAL OUTPUT IS»INT<M<5>> 

970 PRINT"- 

n 

980 PRINT "EFFICIENCY LEVEL IS"INT<EF>"% 

ii 

990 RETURN 

1000 REM *****^*^*******^^*****^**** 
1010 REM GET REPLIES 
1020 GET AS 

1030 IF ASO-Y" AND ASO"N" THEN 1020 
1040 PRINT TAB(22);AS 
1050 FOR J=1 TO 500:NEXT 3 
1060 RETURN 

1070 REM **^***************^*^****^** 
1080 REM INCREASE OUTPUT? 

1090 IF M(4)=0 THEN X=15:GOTO 1110 
1100 X=18 

1110 PRINT"IT WILL COST SM"X" TO EXPAND" 
1120 PRINTTAB(8 );"OUTPUT BY l%" 

1130 PRINT"- 

__ ii 

1140 PRINT"HOW MANY % DO YOU WISH TO RAI 
SE OUTPUT" 
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1150 INPUT EPSIF EP<0 OREP>100 THEN 1150 

1160 M (5 >=0 

1170 FOR T=1 TO 4 

1180 M ( T ) =M (T)+M(T) *EP/ 100 

1190 M < 5 >= M(5)+ M ( T) 

1200 NEXT T 

1210 TP=TP-EP*X 

1220 FOR T=1 TO 500:NEXT T 

1230 GOTO 170 

1240 REM **************************** 
1250 REM SALE OF FACTORY FOUR 
1260 PRINT "FACTORY FOUR IS VALUED FOR S 
ALE AT SMI04" 

1270 PRINT"YOU CAN’T REBUY IT LATER IF 
YOU SELL IT. . . ” 

1280 PRINT"DO YOU WANT TO SELL <Y/N>?" 

1290 60SUB 1010 

1300 IF A$= W N" THEN 210 

1310 TP=TP+104 

1320 SF=1 

1330 M<5)=M<1)+M(2)+M<3> 

1340 M(4 > =0 
1350 GOTO 170 

1360 REM **************************** 

1370 REM CHECK ON LOSSES 

1380 IF MP>0 THEN SA=0:GOTO 1480 

1390 SA=SA+1 

1400 IF SA>11 THEN 1420 

1410 GOTO 1480 

1420 PRINT" 

{CLR >":print 

1430 PRINT"YOU JUST MADE YOUR TWELTH MON 
THLY " 

1440 PRINT"LOSS IN A RON. 

h 

1450 PRINTTAB(6 );"YOUR EMPLOYMENT" 

1460 PRINTTAB(6 );"IS HEREBY TERMINATED!* 

it 

1470 END 

1480 IF TP> = ~250 THEN 1350 
1490 PRINT" 

{C L R >":PRINT 
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155*0 PRINT" UNDER YOUR MANAGEMENT, THE CO 
MPANY HAS” 

1510 PRINT" LOST MORE THAN $M25lEf! " 

1520 GOTO 1450 

1530 IF TP>200 THEM 1570 

1540 RETURN 

1550 REM **************************** 
1560 REM SWEET SWEET SUCCESS!!! 

1570 PRINT” 

{ CLR > 11 : PR I NT 

1580 PRINT”WELL DONE! THE COMPANY HAS MA 
DE MORE” 

1590 PRINT” THAN 55M200. YOU’VE BEEN 
MADE” 

1600 PRINT” A MEMBER OF THE BOARD 

ii 

1610 FOR T=1 TO 2000:NEXT T 
1620 END 

1630 REM **************************** 
1640 REM INITIALISE 

1660 T=RND<VAL(RIGHTS<TI*,2))):REM 

RANDOMIZE 

1670 DIM M(5),Y<5) 

1680 NE=12000:REM STARTING NO EMPLOYEES 
1690 AW=22995:REM STARTING AVERAGE WAGE 
1700 AC=11100:REM COST PRICE/VEHICLE 
1710 AS=12000:REM SELLING PRICE 
1720 M1=50*1000:MC =10100 
1730 Y(3)=12500 

1740 MS=25:EF=77:FA=160:SF=0:MT=0 
1750 FOR J=1 TO 5 
1760 READ M(J) 

1770 NEXT J 

1780 POKE 53280,0:POKE 53231,0:RETURN 
1790 DATA 8900,3250,2500,1625,16275 
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Gridiron 


5 POKE 53280,0:POKE 53281,0 
10 REM GRIDIRON 
20 PRINT" 

{ CLR > " 

30 X=RND (VAL(RIGHT*(TIS,2) ) ) :REM 
RANDOMIZE 
40 GOSUB 70 
50 GOTO 220 

60 REM *********************** 

70 FOR X=1 TO 1500:NEXT X 
80 RETURN 

100 PRINT ASJSA 
110 PRINT BS;SB 
120 RETURN 

130 REM *********************** 

140 IF ZS=AS THEN ZS=BS:RETURN 
150 2*=A*:RETURN 

160 REM *********************** 

170 GET ZZS:IF ZZ$<>"" THEN 170 
180 PRINT" > PRESS ANY KEY <" 

190 GET ZZS:IF ZZS="" THEN 190 
200 PRINT TAB(20)5"OK":RETURN 
210 REM *********************** 

220 REM INITIALISE 

230 DEF FNA <X)=INT <RND(1)*X)+1 

240 PRINT" 

CWHTIQNE PLAYER OR TWO" 

250 INPUT X 

260 IF X<1 OR X >2 THEN 250 

270 IF X=1 THEN VC=1:AS="SILICON COWBOYS 

":GOTO 300 

280 PRINT"WHAT IS THE NAME OF THE HOME T 
EAM" 

290 INPUT AS:IF AS="" THEN 290 

300 PRINT"AND WHAT IS THE NAME OF THE VI 

SITING TEAM" 

310 INPUT BS:IF BS="" THEN 310 
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315 AS=" 

<wht>"+as:b$=" <pur>"+b*5 
320 Z$=A*:NU=35 
330 PRINT" 

{CLR> H 

340 PRINT"THERE ARE"INT ( 10*(60-<W/4) ) ) /1 
0"MINUTES TO GO" 

350 PRINT TAB(8) ; ZS" TO KICK OFF" 

360 PRINT" 

i WHT > YOU ARE ON YOUR OWN"NU"YARD LINE" 
370 IF VC=1 AND Z$=A* THEN GOSUB 70:GOTO 
400 

380 PRINT"TO KICK OFF..." 

390 GOSUB 170 

400 A=FNA < 20)+40 

410 PRINT Z*5" HAVE..." 

420 FOR X=1 TO A 

430 PRINT TAB(X/3>;"KICKED"X"YARDS" 

440 NEXT X 
450 NU=NU+X 
460 GOSUB 70 
470 PRINT " 

{PUR >THE BALL IS CAUGHT!" 

480 GOSUB 70 
490 A=FNA ( 30)+10 
500 FOR X=t TO A 

510 PRINT TAB(X/5)5"AND RETURNED"X"YARDS 

ii 

520 NEXT X 

530 NU=ABS<100-NU+X) 

540 GOSUB 140 

550 PRINT"- 

_ii 

560 PRINT"THE BALL IS DOWN ON" 

570 PRINT Z$5" 1 S"NU"YARD LINE" 

580 IF Z*=A* AND VC=1 THEN GOSUB 70:GOTO 
600 

590 GOSUB 170 

600 tg=10:d=0:sl=nu 

610 IF W=60 OR W=180 THEN 2010 
620 IF W=120 THEN 2070 
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630 IF W=240 THEN 2140 
640 PRINT" 

{ CLR > " 

650 PRIMTLEFTS < AS,6) ;SA5 LEFTS<BS,6> 5 SB 
660 PRINT INT(10* < 60-(W / 4 > > ) /10"MINUTES 
TO GO" 

670 GOSUB 70 

680 PRINT"- 

__it 

690 PRINT 7S" IN POSSESSION" 

700 PRINT TAB(4 > JD"DOWN" 

710 PRINT TAB < 4) 5 TG"VARDS TO GO" 

720 PRINT"-*- 

_ __*i 

730 PRINT"START AT"SL"YARD LINE" 

740 PRINT"NOW ON"NU"YARD LINE" 

750 PRINT 100-NU"YARDS TO TOUCHDOWN" 

760 PRINT"- 


770 PRINT "ON THIS PLAY "5 

780 IF ZS=AS THEN PRINT AS;" CAN":GOTO 8 
00 

790 PRINT BS;" CAN" 

800 PRINT"EITHER 1 - THROW" 

810 PRINT" 2 - CARRY" 

820 PRINT" OR 3 - PUNT" 

830 P=0 

840 IF AS=ZS AND VC=1 AND D<3 THEN P=2:G 
OTO 900 

850 IF AS=ZS AND V/C=l AND TG<7 THEN P=2: 
GOTO 900 

860 IF AS=ZS AND VC=1 AND < 100-NU)<31 TH 


EN P=3:G0T0 900 

870 IF AS=ZS AND VC=1 THEN P=l:GOTO 900 

880 GET KS:IF KS<"1" OR KS>"3" THEN 880 

990 P=VAL(KS):PRINT TAB<10)5"OK"P 

900 GOSUB 70 

910 W=W+1 

920 PRINT" 

{CLR >" 

930 PRINT ZS;", YOUR QUARTERBACK HAS" 
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940 PRINTTAB(8);"GOT THE BALL" 

950 PRINT"- 

_ii 

960 PRINT"WAIT FOR THE COUNT, ";Z*; H ," 

970 PRINT TAB(8);"THEN HIT ANY KEY..." 

980 GET ZZS:IF ZZSK>"" THEN 980 

990 GOSUB 70 

1000 GOSUB 2200 

.1010 IF E=ll THEN 2340 

1020 PRINT"- 

_it 

1030 ON P GOTO 1050,1310,1590 
1040 REM *********************** 

1050 PRINT"YOU’VE THROWN"E*5"YARDS" 

1060 PRINT"AND THE PLAY IS..." 

1070 A=FNA<8) 

1080 IF A=1 THEN 1520 
1090 A=FNA(E+l) 

1100 IF A=1 THEN PRINTTAB(20);" COMPLE 

TE":GOTO 1220 

1110 PRINT TAB(20)5 "... INCOMPLETE":D=D+1 
1120 GOSUB 170 

1130 PRINT"- 

_n 

1140 IF D>3 THEN 1160 
1150 GOTO 610 

1160 PRINT"THAT WAS YOUR 4TH DOWN" 

1170 PRINT"AND YOU’VE LOST POSSESSION!!" 

1180 d=0:tg=10:nu=abs(100-nu):sl=nu 

1190 GOSUB 70 

1200 GOSUB 140 

1210 GOTO 610 

1220 GOSUB 170 

1230 NU=NU+(E*5):TG=TG-(E*5> 

1240 IF NU>100 THEN 1800 
1250 IF TG<1 THEN 1280 
1260 D=D+l:IF D>3 THEN 1160 
1270 GOTO 610 

1280 d=0:tg=10:sl=nu 

1290 GOTO 610 

1300 REM *********************** 
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1310 A=FNA(15) 

1320 IF A=1 THEN 1510 
1330 E=A-5 

1340 IF E<0 THEN 1440 

1350 IF E=0 THEN E=l:GOTO 1370 

1360 PRINT"GOOD SNAP, PASS AND RUN" 

1370 PRINT"YOU’ VE GAINED"E"YARDS" 

1380 GOSUB 170 

1390 tg=tg-e:nu=abs(NU+e>:d=d+i 

1400 IF NU>100 THEN 1800 
1410 IF TG<1 THEN 1280 
1420 IF D>3 THEN 1160 
1430 GOTO 610 

1440 PRINT"GREAT RUNNING BY THE OPPOSITI 
ON HAS" 

1450 PRINT"CAUSED YOU TO LOSE"ABS<E)"YAR 
DS" 

1460 tg=tg-e:nu=nu+e:d=d+i 
1470 GOSUB 170 
1480 IF D>3 THEN 1160 
1490 GOTO 610 

1500 REM *********************** 

1510 PRINT"BAD SNAP... YOU’VE" 

1520 PRINT"FUMBLED...AND" 

1530 PRINT"YOU *VE LOST POSSESSION..." 

1540 nu= 100 -nu:d= 0 :tg= 10 :sl=nu 

1560 GOSUB 170 
1570 GOTO 460 

1590 PRINT"NICE PUNT..." 

1600 PRINT"YOU’VE KICKED"E*4"YARDS" 

1610 NU=NU+E*4 

1620 IF NU>100 THEN 1650 

1630 PRINT"- 

_ii 

1640 GOTO 460 
1650 A=FNA(3) 

1660 IF A>1 THEN 1740 

1670 PRINT"BUT YOU’VE MISSED THE GOAL!!" 
1680 IF NU-E*4<80 THEN NU=ABS(100-(NU-E* 
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4)):GOTO 1700 
1690 NU=20 

1700 D=0:TG=10:SL=NU 
1710 GOSUB 140 
1720 GOSUB 170 
1730 GOTO 610 

1740 PRINT”.AND SCORED!” 

1750 IF Z*=BS THEN SB=SB+3:G0T0 1770 

1760 SA=SA+3 

1770 GOSUB 100 

1780 GOSUB 170 

1790 NU=35:G0T0 330 

1800 PRINT" 

<CLR>”:GOSUB 4000 
1810 FOR X=1 TO 5 

1820 PRINTTAB<X*2>;"TOUCHDOWN!!!" 

1830 NEXT X 

1840 IF ZS-A* THEN SA=SA+6:G0T0 1860 
1850 SB=SB+6 
1860 GOSUB 100 

1870 PRINT”TO PLAY FOR EXTRA POINT" 

1880 GOSUB 170 

1890 PRINT"- 

__ H 

1900 PRINT "THE BALL IS SNAPPED...PREPAR 
E TO KICK!" 

1910 GOSUB 70 
1920 GOSUB 2200 

1930 IF E>9 THEN PRINT"YOU MISSED":NU=20 
:GOTO 1970 

1940 PRINT"YOU SCORED_":NU=35 

1950 IF Z*=AS THEN SA=SA+l:GOTO 1980 

1960 SB=SB+l:GOTO 1980 

1970 GOSUB 140 

1980 GOSUB 100 

1990 GOSUB 170 

2000 GOTO 330 

2010 FOR X=1 TO 10 

2020 PRINT TAB(2*X);"PERIOD OVER" 

2030 NEXT X 
2040 GOSUB 100 
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2050 GOSUB 170 

2.060 GOTO660 

2070 FOR X=1 TO 10 

2080 PRINT TAB<2*X);"HALF TIME" 

2090 NEXT X 
2100 GOSUB 100 
2110 2$=B$ 

2120 GOSUB 170 

2130 NU=35:W=W+2JGOTO 330 

2140 FOR X=1 TO 10 

2150 PRINT TAB<2*X>5 "GAME OVER M 

2160 NEXT X 

2170 GOSUB 100 

2180 END 

2190 REM *********************** 

2200 E=0:X=10 

2210 IF Z*=AS AND VC = 1 THEN PRINT 11 THIS O 

NE FOR w 5A$:GOTO2290 

2220 E=E+l:X=X-l 

2230 PRINT TABCEME 

2240 FOR Y=i TO X*1.5 

2250 GET 22*:IF ZZ*<>"" THEN Y=X*1.5+l:R 
ETURN 

2260 NEXT Y 

2270 IF E=li THEN RETURN 

2280 GOTO 2220 

2290 FOR E=1 TO FNA<7)+2 

2300 FOR J = 1 TO 602 NEXT J 

2310 PRINT TAB(E)}E 

2320 NEXT E 

2330 RETURN 

2340 PRINT-TOO LATE!” 

2350 PRINT“YOU’VE BEEN SACKED!" 

2360 E=FNA(4 > 

2370 IF E=3 THEN 2430 

2380 PRINT”AND LOST FIVE YARDS!" 

2390 tg=tg+5:d=d+i:nu=nu-5 
2400 GOSUB 170 
2410 IF D>3 THEN 1160 
2420 GOTO 610 

2430 PRINT”AND LOST POSSESSION!” 
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2440 D=0:NU=ABS<100-NU+5):SL=NU:TG=10 

2450 GOSUB 170 

2460 GOSUB 140 

2470 GOTO 610 

4000 SID=54272 

4010 FOR L1=0 TO 23 

4020 POKE SID+L1,0 

4030 NEXT LI 

4040 POKE SID+24,15 

4050 POKE SID+5,15 

4060 POKE SID+6,255 

4070 POKE SID+4,17 

4080 FOR LI=48 TO 220 STEP .7 

4090 POKE SID+1,L1 

4100 NEXT LI 

4110 FOR L1=28 TO 200 

4120 POKE SID+1,L1 

4130 NEXT LI 

4140 FOR LI=200 TO 28 STEP -1 
4150 POKE SID+1 f Ll 
4160 NEXT LI 
4170 POKE SID+1,0 
4180 RETURN 
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Tennis 


10 REM TENNIS 

2.0 POKE 53280,0: POKE 53281 v 0: PRINT ” 

<CLR> " 

30 D=RND < VAL(RIGHTS(TIS,2) ) ) :REM 
RANDOMIZE 

4.0 aa= 0 :bb= 0 :t= 0 :ka =0 

50 XA=.0: YA=02ZA=0 

60 XB=0:YB=0:ZB=0 

70 DEF FNA(X)=INT(RND(1)*X)+1 

80 INPUT 11 ONE HUMAN PLAYER OR TWO" 5 A 

90 IF A<1 OR A>2 THEN 80 

100 IF A=1 THEN AS="BJORNX":VC=1 

110 IF VC =1 THEN 160 

120 PRINT"PLEASE ENTER SIX-LETTER NAME” 
130 INPUT "NAME OF FIRST PLAYER"5 A* 

140 IF LEN ( AS)< 6 THEN AS=AS+CHRS < 32) :GOT 
O 140 

150 AS=LEFTS< AS, 6) 

160 INPUT “NAME OF SECOND PLAYER H 5BS 
170 IF LEN<BS)<6 THEN BS=BS+CHRS(32):GOT 
O 170 

180 BS=LEFTS<BS,6) 

190 S=1:AA=1:BB=1 
200 PRINT" 

C CLR > " 

205 AS=" 

{PUR >"+AS:BS= h i WHT >"+BS 

210 ps=as:rs=bs 

220 REM ******************************* 
230 IF PS=AS THEN RS=BS 
240 IF PS=BS THEN RS=AS 
250 PRINTPS;" SERVING" 

260 PRINT"DO YOU WANT TO SERVE 1 - FAST" 
270 PRINT" OR 2 - SLOW" 

280 IF PS=AS AND VC=1 AND SC=0 THEN KB=1 
:gosub 1720:goto 330 

290 IF PS=AS AND VC=1 AND SC=1 THEN KB=2 

:gosijb 1720 : goto 330 
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300 GET KS 

"310 IF K$< M 1" OR K*>"2" THEN 300 
320 KB=VAL(KS) 

330 PRINT:PRINTTAB<6) 5KBJTAB<10) ; "> IT 7 S 
A "; 

340 IF KB=1 THEN PRINT"FAST"5 
350 IF KB=2 THEN PRINT M SLOW M ; 

360 PRINT” SERVE - . . " 

370 GOSUB 1720 

380 IF KB=1 THEN EB=FNA<3>SGOTO 400 
390 EB=FNA(8) 

400 IF EB=1 THEN 450 
410 IF EB=3 AND SC=0 THEN 520 
420 IF EB=3 AND SC=1 THEN 590 
430 GOTO 670 

440 REN ******************************* 
450 PRINT" 

{CLR >":PRINT:GOSUB 4000 

460 PRINT TAB (8) 5"_ACE-" 

470 GOSUB 1720 
480 SC=0 

490 IF PS=A* THEN 1140 
500 GOTO 1150 

510 REM ******************************* 
520 PRINT" 

< CLR > M SPRINT 

530 PRINT TAB<12) 5 "_OUT. . . ." 

540 PRINT TAB<8> 5 "_SECOND SERVE-" 

550 GOSUB 1720 

560 SC=1 

570 GOTO 230 

580 REM ******************************* 
590 PRINT" 
i CLR >"SPRINT 

600 PRINT TAB<12) OUT. ... " 

610 PRINT TAB(8 )|.DOUBLE FAULT..." 

620 GOSUB 1720 
630 SC=0 

640 IF P*=A* THEN 1150 
650 GOTO 1140 
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670 SC=0 
680 PRINT" 

ICLR>":PRINT 

690 GET ZZ*:IF ZZ*<>"" THEN 690 

700 PRINTRSJ", THE BALL IS":PRINT"IN YOU 

R COURT" 

710 PRINT"--" 

720 IF R*=A$ AND VC =1 THEN 750 

730 PRINT"HIT ANY KEY, WHEN YOU SEE THE 

ZERO, TO RETURN THE BALI_" 

740 GET ZZ*:IF ZZSK>"" THEN 740 
750 x=4*FNA (3):Y=X 
760 GOSUB 1720 
770 E=5 

780 PRINTTAB<2*<11-E));E 
790 Y=Y-1 
800 GET SS 

810 IF SSO"" AND E=0 THEN 890 

820 IF S*<>"" THEN 990 

830 IF Y >0 THEN 790 

840 E=E-1:Y=X 

850 IF E<-1 THEN 990 

860 IF E=-1 AND RS=AS AND VC=1 THEN 890 
870 GOTO 780 

880 IF KB=1 THEN EA=FNA(2):GOTO 1000 
890 EA=FNA(4 > 

900 IF E=0 AND RS=AS AND VC =1 THEN EA=FN 
A < 8 > 

910 IF EA=1 THEN 940 

920 IF RS=A* THEN R$=B$:GOTO 670 

930 RS3=A*3:GOTO 670 

940 PRINTRS;", YOU’VE HIT THE BALL" 

950 PRINT TAB < 8 ) 5 "OUT OF PLAY_" 

960 GOSUB 1720 

970 IF R*=AS5 THEN RS=BS:GOTO 1150 
980 GOTO 1140 
990 EA=FNA(4) 

1000 IF EA=1 THEN 1070 

1010 PRINT"YOU MISSED THE BALL, AND_" 

1020 GOSUB 1720 

1030 PRINT" IT WAS IN_BAD MISTAKE" 
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1040 GOSUB 1720 

1050 IF R*=AS> THEN RS=B*:GOTO 1140 
1060 GOTO 1140 

1070 PRINT M YOU MISSED THE BALL AND. . . - 
1080 GOSUB 1720 

1090 PRINT M IT WAS OUT_WELL LEFT" 

1100 GOSUB 1720 

1110 IF RS=AS THEN RS=B*:GOTO 1140 
1120 GOTO 1150 

1130 REM ****************************** 

1140 aa=aa+i:goto 1160 

1150 BB=BB+1 

1160 IF AA<5 AND BB<5 THEN 1230 

1170 IF (BB>4 AND AA<4> OR <BB>4 AND BB- 

AA >1) THEN AA=l:BB=l:GOTO 1500 

1180 IF (AA>4 AND BB<4> OR <AA>4 AND AA- 

BB >1) THEN AA=l:BB=l:GOTO 1440 

1190 IF AA>4 AND AA>BB THEN CS=-ADV":DS= 

M -"SGOTO 1320 

1200 IF BB>4 AND BB >AA THEN D*= M ADV":C$= 
..-•' ; GOTO 1320 

1210 CS5= M (DEUCE" :D*= M (DEUCE” : GOTO 1320 

1220 REM ****************************** 

1230 RESTORE 

1240 FOR D=1 TO AA 

1250 READ C* 

1260 NEXT D 
1270 RESTORE 
1280 FOR D=1 TO BB 
1290 READ D3> 

1300 NEXT D 

1310 REM ****************************** 
1320 PRINT" 

{ CLR > " 

1330 PRINT"-" 

1340 PRINT" SET SET SET" 

1350 PRINT"-" 


1360 

PRINT" 


1 

2 3 

GAME 

1370 

PRINT 

A 95; " 

";xa;" 

"; v a ;" 

" ;ZA 

;cs 

1380 

PRINT 

B*5 “ 

";xb;" 

■ 5 yb;" 

" ;zb 


; D$ 
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139.0 PRINT "- M 

1400 GOSUB 1720 
1410 IF T< >1 THEN 230 
1420 END 

1430 REM ****************************** 
1440 PRINT M 
<CLR>“ 

1450 PRINT"GAME TO ";AS 
1460 GOSUB 1720 

1470 IF S=1 THEN XA=XA+1:CS="0”:DS="0":G 
OTO 1560 

1480 IF S=2 THEN YA=YA+ 1 : C$= 11 0" : DS= "0” : G 
OTO 1580 

1490 IF S=3 THEN 2A=2A+1:C«="0":DS=”0":G 
OTO 1600 
1500 PRINT" 

C CLR } ” 

1510 PRINT"GAME TO ";BS 
1520 GOSUB 1720 

1530 IF S=1 THEN XB=XB+1:CS="0":DS="0":G 
OTO 1560 

1540 IF S=2 THEN YB=YB+1SCS="0":DS="0":G 
OTO 1580 

1550 IF S=3 THEN ZB=ZB+1:C*=*0":DS="0":G 
OTO 1600 

1560 IF <XA>5 AND XB<5> OR <XA<5 AND XB> 
5) THEN 1630 

1570 IF <XA>5 AND XA-XB>1) OR <XA>5 AND 
XB-XA>1* THEN 1630 

1580 IF <YA>5 AND YB<5) OR (YA<5 AND YB> 
5) THEN 1630 

1590 IF <YA>5 AND YA-YB>1) OR <YA>5 AND 
YB-YA >1> THEN 1630 

1600 IF ( 2A>5 AND ZB<5) OR <2A<5 AND 2B> 
5) THEN 1680 

1610 IF (2A >5 AND ZA-ZBM) OR <2A>5 AND 

ZB-ZA >1) THEN 1680 

1620 GOTO 1640 

1630 3=S+i 

1640 AA=1:BB=1 

1650 IF PS=AS THEN RS=AS:PS=BS:GOTO 1320 
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1660 p$= as&:r$=bs:goto 1320 

1670 REM ****************************** 

1680 T=1 

1690 GOTO 1320 

1700 REM ****************************** 

1710 REM DELAY 

1720 FOR M=1 TO 1000:NEXT M 

1730 RETURN 

1740 DATA M 0 M , M 15","30","40" 

4000 SID=54272 

4010 FOR L1=0 TO 23 

4020 POKE SID+L1,0 

4030 NEXT LI 

4040 POKE SID+24,15 

4050 POKE SID+5,15 

4060 POKE SID+6,255 

4070 POKE SID+4,17 

4080 FOR LI=48 TO 220 STEP .7 

4090 POKE SID+1,LI 

4100 NEXT LI 

4110 FOR L1=28 TO 200 

4120 POKE SID+1,L1 

4130 NEXT LI 

4140 FOR LI=200 TO 28 STEP -1 
4150 POKE SID+1, L 1 
4160 NEXT LI 
4170 POKE SID+l , 0 
4180 RETURN 
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Grand Prix 


10 REM GRAND PRIX 
20 GOSUB 2200:REM INITIALISE 
30 GOSUB 1190:REM CHOOSE TRACK 
40 REM *********************** 

50 REM MAJOR LOOP 

60 GOSUB 120:REM PRINTOUT 

70 GOSUB 280:REM ACCELERATION/CHECK 

80 GOSUB 450:REM ENGINE/BRAKES 

90 GOSUB 500:REM CORNER/POSITION 

100 GOTO 60 

110 REM *********************** 

120 REM PRINTOUT 
130 PRINT" 

{CLR > i PUR >" 

140 PRINT-ENGINE TEMPERATURE” INT < EhJG*10) 
/10-C- < MAX. 200)" 

150 PRINT-BRAKE TEMPERATURES"INT<BRAK*10 
)/10"C. (MAX. 500)" 

160 PRINT" DISTANCE COVERED:"INT(DIST*10 
)/10-METERS" 

170 PRINT" :-INT(DIST*10 

0/RR)/100"LAPS" 

180 PRINT"YOU* RE IN POSITION"INT(FP) 

190 PRINT"- 

_H 

200 PRINT" CURRENT SPEED:"INT<SPEED*1 

0)/10-KPH" 

210 PRINT" :"INT(SPEED*5 

.555)/10"METERS PER MOVE" 

220 PRINT"- 

_ ii 

230 PRINT"CORNER APPROACHING"INT(APP>"ME 
TERS" 

240 PRINT-RECOMMENDED SPEED:"C<C>"KPH" 
250 PRINT"- 

__ ii 

260 RETURN 

270 REM *********************** 

280 REM CHECK ACCELERATION AND FACTORS 
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290 GET X*:IF X*<>"Z" AND XSO M M" AND X* 
<>CHR*<32) THEN 290 
300 PR I NTT AB (12) ; 11 OK " 

310 X=0 

320 IF XS="M" THEN X=SPEED/15 

330 IF X*="Z" THEN X=-SPEED/15 

340 NUM=NUM+1:REM NUMBER OF MOVES 

350 SPEED=SPEED+X 

360 IF SPEED<0 THEN SPEED=0 

370 TRAV=SPEED*.5555:REM DISTANCE 

TRAVELLED 

380 DIST=DIST+TRAV:REM TOTAL DISTANCE 

TRAVELLED 

390 ENG=ENG+<X/2>+.07:IF ENG<70 THEN ENG 
=70+RND(l)*8:REM ENGINE TEMP 
400 IF X>0 THEN BRAK=BRAK*.9:REM BRAKE 
TEMP falling; ACCELERATING 
410 IF X<1 THEN BRAK=BRAK-<3*X>-RND(1)*3 
:REM BRAKE TEMP INCREASING; BRAKING 
420 IF BRAK< 8 THEN BRAK=8+RND<1>*8 
430 PRINT" 

<WHT>";:RETURN 

440 REM *********************** 

450 REM CHECK ENGINE/BRAKE TEMP 

460 IF ENG>200 THEN PRINT"YOUR ENGINE HA 

S OVER HEATED":GOTO 830 

470 IF BRAK >500 THEN PRINT"YOUR BRAKES H 
AVE OVERHEATED":GOTO 830 
480 RETURN 

490 REM *********************** 

500 REM CHECK CORNERING SPEED 
AND FIELD POSITION 
510 APP=APP-TRAV 
520 IF APP>0 THEN RETURN 
530 CRASH=0 

540 IF SPEED> <C (0*1 . 125) THEN CRASH=1:G 
OTO 690 

550 IF SPEED> (C (0*1 . 1) THEN GOTO 690 
560 PNT=PNT + 100- < (C (0*1. 1) -SPEED) : REM 
CORNERING POINTS 

570 NC=NC +1:REM NUMBER OF CORNERS 
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580 CP=96-(PNT/NC):REM CORNERING 

POSITION 

590 AM=AM+A< C) :REM AVERAGE NUMBER 

OF MOVES ALLOWED 

600 rp=mum-am:rem racing position: your 

MOVES MINUS AVERAGE MOVES 
610 FP=(CP+RP)/2SREM FIELD POSITION IS 
AVERAGE OF CORNER & RACE POSITIONS 
620 IF FP<1 THEN FP=1 
630 C=C+1 

640 IF C=WW THEN C=l:REM LAP OVER 
650 APP=APP+D(C) 

660 IF LAP*QQ=AM THEN 910:REM RACE OVER 
670 RETURN 

680 REM *********************** 

690 REM CRASHED 
700 PRINT” 

{ CLR > " 

710 PRINT”YOU CORNERED AT”INT <10*SPEED)/ 
10"KPH" 

720 PRINT"AND THE MAXIMUM SPEED WAS JUST 
" C ( C > 

730 GOSUB 2330 

740 PRINT"YOU SPIN OFF THE TRACK..." 

750 GOSUB 2330 

760 IF CRASH=1 THEN 830 

770 PRINT"YOU’VE LOST 20 SECONDS, BUT YO 
U’RE ABLE TO REJOIN THE RACE" 

780 NUM=NUM+10:SPEED=INT <2*C (C) /3> 

790 PNT=PNT + 50 
800 GOSUB 2330 
810 GOTO 570 

820 REM *********************** 

830 PRINT".AND CRASH! ! ! ! ! " 

840 PRINT"- 

___n 

850 PRINT"YOU ONLY COMPLETED"INT<DIST*10 
)/10"METERS." 

860 PRINT " OR " INT < DIST*100/RR) / 100 11 LAPS A 
ND AT THAT" 

870 PRINT"STAGE YOU WERE IN POSITION"INT 
< FP) 
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880 PRINT"- 

_ __ H 

890 GOTO 1050 
910 REM RACE OVER 
920 PRINT" 

{ CLR > " 

930 EFLA6=1 

940 FOR X=1 TO 20 

950 PRINTTAB<X);"WELL DONE, "?A«J H !!" 

960 PRINTTAB(21-X);"WELL DONE, ";A$;"!!“ 
970 NEXT X 

980 PRINT"- 

_H 

990 PRINT"YOU MANAGED TO LAST OUT THE FU 
LL "LAP"LAP RACE..." 

1000 PRINT"- 


1010 GOSUB 2330 

1020 PRINT"YOU FINISHED IN POSITION"INT< 
FP) 

1030 PRINT"AFTER STARTING IN 6TH POSITIO 
N_" 

1040 GOSUB 2330 

1050 PRINT"YOUR AVERAGE SPEED WAS"INT<DI 
ST*180/NUM>/100"KPH" 

1060 GOSUB 2330 

1070 IF RP<1 THEN RP=1 

1080 IF CP<1 THEN CP=1 

1090 PRINT"YOU WERE"INT<ABS<RP>>"TH FAST 
EST ON THE STRAIGHTS," 

1100 PRINT"AND"INT(ABS(CP)>"TH FASTEST O 
N THE CORNERS." 

1110 PRINT:PRINT"PRESS ’S’ FOR SAME RACE 
, ’N’ FOR MEW RACE, ’E’ TO END" 

1120 GET I«: IF ISO"S" AND ISO"N" AND I 

$<>"E" THEN 1120 

1130 IF IS="E" THEN END 

1140 GOSUB 2240 

1150 RESTORE 

1160 IF IS="S" THEN GOSUB 1490:LAP=L2AP: 
GOTO 60 
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1170 IF I*="N" THEN PRINT M 
{ CLR > 11 : GOSUB 1250: GOTO 60 

1190 REM NAME AND TRACK DATA 
1200 INPUT M WHAT IS YOUR NAME, DRIVER”5 A 
* 

1210 PRINT 

1220 FOR X=1 TO 3 

1230 PRINT TAB<X*4)5"OK, GOOD LUCK, ”5 AS 
1240 GOSUB 2330:NEXT X 

*********” 

1260 PRINT"WHICH RACE DO YOU WANT TO TAK 
E PART IN:" 

1270 PRINT 

1280 PRINT TAB(7)5"BRITISH GRAND PRIX 26 
50MT :1 " 

1290 PRINT TAB(7);"GERMAN GRAND PRIX 17 
00MT :2" 

1300 PRINT TAB<7)5"ITALIAN GRAND PRIX 22 
00MT :3" 

1310 PRINT TAB<7);"MONACO GRAND PRIX 31 
00MT :4" 

1320 PRINT 

1330 PRINT TAB(7);"ENTER A NUMBER <1 TO 
4) " 

1340 GET KS 

1350 IF K$<"1" OR K*>"4" THEN 1340 
1360 GP=VAL<K*> 

*********" 

1380 PRINT TAB(8);"0K, THE "5 
1390 IF GP=1 THEN PRINT"BRITISH"5 
1400 IF GP=2 THEN PRINT"GERMAN"5 
1410 IF GP=3 THEN PRINT"ITALIAN"5 
1420 IF GP=4 THEN PRINT"MONACO"5 
1430 PRINT" RACE" 

1440 PRINT"***************************** 

1450 PRINT:PRINT"OVER HOW MANY LAPS?" 
1460 INPUT LAP:IF LAP<1 THEN 1460 
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1470 LAP=INT<LAP+.5):L2AP=LAP 
1480 REM ************************ 

1490 REM BRITISH DATA 
1500 SPEED=140 
1510 FOR X =1 TO 9 

1520 READ D(X)!REM DISTANCE BETWEEN 

CORNERS 

1530 NEXT X 

1540 DATA 800,400,250,200,250,300,100,10 
0,250 

1550 FOR X=1 TO 9 
1560 READ C(X) 

1570 NEXT X 

1580 DATA 150,90,175,200,200,90,90,150,1 
50 

1590 FOR X=1 TO 9 

1600 READ A(X)JREM AVERAGE NUMBER OF 
MOVES ALLOWED BETWEEN CORNERS 
1610 NEXT X 

1620 DATA 8 ,4,2,2,2,2,1,1,2 
1630 APP=800:WW=10:QQ=24:RR=2650 
1640 IF GP=i THEN RETURN 

1660 REM GERMAN DATA 
1670 SPEED=85 
1680 FOR X=1 TO 7 
1690 READ D < X > 

1700 NEXT X 

1710 DATA 600,200,100,150,250,200,200 

1720 FOR X=1 TO 7 

1730 READ C<X):REM RECOMMENDED 

MAXIMUM CORNERING SPEED 

1740 NEXT X 

1750 DATA 90,175,120,90,200,200,175 
1760 FOR X= 1 TO 7 
1770 READ A < X) 

1780 NEXT X 

1790 DATA 6,2 ,1,2,2,2,2 

1800 APP=600!WW=8:QQ=17:RR=1700 

1810 IF GP=2 THEN RETURN 
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183.0 REM ITALIAN DATA 
1840 SPEED=108 
1850 FOR X=1 TO 7 
i860 READ D(X) 

1870 NEXT X 

1880 DATA 800,300,100,150,300,350,200 

1890 FOR X=1 TO 7 

1900 READ C(X):REM RECOMMENDED 

MAXIMUM CORNERING SPEED 

1910 NEXT X 

1920 DATA 120,90,90,150,200,120,150 
1930 FOR X=1 TO 7 
1940 READ A(X) 

1950 NEXT X 

i960 DATA 8,3,3,1,3,3,2 

1970 APP=800:WW=8:QQ=22:RR=2200 

1980 IF GP=3 THEN RETURN 

1990 REM ************************ 

2000 REM MONACO DATA 
2010 SPEED=162.5 
2020 FOR X=i TO 14 
2030 READ D(X) 

2040 NEXT X 

2050 DATA 400,100,100,300,400,300,150,20 

0 , 200,200 

2060 DATA 150,150,200,250 

2070 FOR X=i TO 14 

2080 READ C<X>:REM RECOMMENDED 

MAXIMUM CORNERING SPEED 

2090 NEXT X 

2100 DATA 175,150,175,200,120,200,175,90 
,175,150 

2110 DATA 150,175,120,150 
2120 FOR X=1 TO 14 
2130 READ A(X) 

2140 NEXT X 

2150 DATA 4, 1 , 1,3,4,3, 1,2,2,2 
2160 DATA 1,2,2,2 

2170 APP=400:WW=15:QQ=30:RR=3100 
2180 RETURN 

2190 REM ************************ 
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2200 REM INITIALISATION 

2210 POKE 53280,0:POKE 53281,0:PRINT" 
{ CLR > " 

2220 X=RND (VAL < RIGHTS* ( T IS, 2) ) ) : REM 
RANDOMIZE 

2230 DIM A < 14) ,C <14) ,D <14) 

2240 c=l :fp=6:pnt=0:nc=0 :CP=0 

2250 AM=0:RP=0:APP=0 

2260 NUM=0:REM number of moves 

2270 ENG=100:BRAK=10:TRAV=0:DIST=0 

2280 EFLAG=0 

2290 X=0 

2300 RETURN 

2320 REM DELAY 

2330 FOR 0=1 TO 1000:NEXT O 

2340 RETURN 

4000 SID=54272 

4010 FOR L1=0 TO 23 

4020 POKE SID+L1,0 

4030 NEXT LI 

4040 POKE SID+24,15 

4050 POKE SID+5,15 

4060 POKE SID+6,255 

4070 POKE SID+4,17 

4080 FOR LI=48 TO 220 STEP .7 

4090 POKE SID+1,Li 

4100 NEXT Li 

4110 FOR L1=28 TO 200 

4120 POKE SID+1,Li 

4130 NEXT LI 

4140 FOR L1=200 TO 28 STEP -1 
4150 POKE SID+1,Li 
4160 NEXT LI 
4170 POKE SID+1,0 
4180 RETURN 
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Flight Simulation 


10 REM FLIGHT SIMULATION 
20 RPT=0 

30 LD=INT'RND<1>*360> 

40 DIM E$< 1000) : REM THIS HOLDS FLIGHT 

RECORD 

50 DIM A*<7>,C$<7>:REM THESE ARRAYS 
HOLD HORIZON AND COMPASS OUTPUT 
60 REM ************************** 

70 GOSUB 2320:REM INITALISE 

30 IF CRASH=0 THEN GOSUB 820:REM HORIZON 

/COMPASS 

90 GOSUB 500:REM PRINTOUT 
100 IF CRASH=1 THEN END 

110 IF LND=1 AND UFLAG=1 THENGOSUB4000:P 
RINT"WELL DONE. A PERFECT LANDING!":END 
120 IF LND=1 AND UFLAG=0 THEN PRINT 11 YOUR 
WHEELS ARE UP":GOSUB 1780:GOTO 90 
130 T=AIRSPEED:SALL=0 
140 GET XS5 

150 IF X35=" R" THEM RPT=l:GOTO 70 

160 IF RPT =1 AND E$(CLOCK+1) = " M THEN RPT 

=0:GOTO 140 

170 IF RPT =1 THEN X$=ES<CLOCK+1> 

180 IF X$="" THEN 140 

190 IF CL.OCK< 999 THEN ES < CLOCK+ 1 ) =X<£ 

200 IF TAKEOV=l THEN ELEVATE=INT(ELEVATE 
+ RND(1> *2-RND<1> *3 > 

210 IF AIRSPEED< 3 THEN 290 

220 IF X^= ,, Q M THEN ELEVATE=ELEVATE+5:EFL 
AG=5:IF ELEVATE >60 THEN SALL=1 
230 IF X35=”A U THEN ELEVATE=ELEVATE-5: EFL 
AG=-5:IF ELEVATE<-70 THEN SALL=-1 
240 IF SALLO0 THEN GOSUB 1640 
250 IF ALTIMETER<1 THEN 290:REM PREVENTS 
DRAMATIC TURNS ON THE GROUND 
260 IF X*=”Z” THEN WA=WA-.5:AMG=ANG-6:IF 
WA<-3 THEN WA=-3 

270 IF X*="M" THEN WA=WA+.5:ANG=ANG+6:IF 
WA>3 THEN WA=3 
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23.0 ANG=INT (ANG + RND ( 1 )*2-RND < 1 )*2> 

290 IF X$=CHR$<32) THEN AIRSPEED=AIRSPEE 
D + 3„ 5 

300 IF X3»=" THEN AIRSPEED=AIRSPEED-7 

310 AIRSPEED=AIRSPEED-ELEVATE/5 

320 IF UFLAG=1 THEN AIRSPEED=AIRSPEED-1. 

5:FUEL=FUEL-„5 

330 IF AIRSPEED< 0 THEM AIRSPEED=0 
340 IF AIRSPEED >400 THEN AIRSPEED=400 
350 IF X$="l" AND UFL.AG=0 THEN UFLAG= 1 : G 
OTO 370 

360 IF X5>="1" AND UFLAG= 1 THEN UFLAG=0 
370 FUEL=FUEL-(ABS(T-AIRSPEED)/10)-3.75 
380 IF FUEL<1 THEN GOSUB 1730 
390 IF TAKEOV=l THEN 420 

400 IF ELEVATE>10 AND AIRSPEED>45 AND AI 
RSPEED< 60 AND UFLAG=1 THEN TAKEOV=l 
410 IF TAKEOV=0 THEN ALTIMETER=0:GOTO 45 

0 

420 IF LND=0 AND AIRSPEED<30 THEN ELEVAT 
E=ELEVATE“5:ALTIMETER=9*ALTIMETER/10 
430 ALTIMETER=ALTIMETER+INT<<<ELEVATE+ .1 
)^AIRSPEED)+EFLAG*AIRSPEED/1000)/30 
440 IF ALTIMETER< 300 AND TAKEOV=l THEN A 
LTIMETER=ALTIMETER+AIRSPEED/30+ELEVATE 
450 IF ALTIMETER<0 THEN GOSUB 1780:REM 
CRASH 

460 REM CHANGE NEXT TWO LINES TO MAKE IT 
EASIER (OR EVEN HARDER) TO LAND 
470 IF ALTIMETER>15 AND AIRSPEED>20 OR T 
AKEOV=0 THEN 80 

480 IF ABS(ANG-LD)<13 OR ABS<ANG+360-LD) 
<13 THEN LND=lSGOTO 80 
485 GOTO 80 

490 REM ******M***********M**** 

500 REM PRINTOUT 
510 PRINT" 

{CLR >" 

520 PRINT" HORIZON"5 TAB(20) ; "HEADING" 

530 EV=INT(ELEVATE/10> 

540 IF EV>2 THEN EV=2 
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55.0 IF EVC-2 THEN EV=-2 

560 IF EVO0 AND TAKE0V=1 AND CRASH=0 TH 
EN GOSUB 1920 

570 PRINT ":-:-: " 

580 FOR J = 1 TO 7 

590 print ": ,, iA$(J); M : M 

600 A* < J)="" 

610 NEXT J 

620 PRINT "S-: " 

630 DIST = DIST + ABS( <COS(ELEVATE) >*AIRSPEE 
D)/360 

640 CLOCK = CLOCK +1 

650 PRINT" : RANGE 11 1 NT ( DI ST* 1.0) / 10" : TIME" 
INT(CLOCK)/105":"LD 

66.0 PRINT " :-: " 

670 PRINT":AIRSPEED :"INT(AIRSPEED) 

68.0 PRINT": " ;LEFT^(0«, I NT (AIRSPEED/ 20) ) 5 

ii y n 

690 PRINT":ALTIMETER:"INT(ALTIMETER); 

700 IF ANG<0 THEN PRINTTAB(19);360+ANG"D 
EG - " 

710 IF ANG>=0 THEN PRINTTAB<19) ;ANG"DEG. 

H 

720 MR=INT(ALTIMETER/30):IF MR>20 THEN M 
R=20 

73.0 print": " ;lefts3'Q<s,mr> ; " >" 

740 PRINT":FUEL :"INT(FUEL) 

750 PRINT" : " ; LEFTSMQSs, I NT (FUEL/45) ) ; " > " 

760 PRINT " :-: " 

770 print":elevation:"ELEVATE": ";:GOSUB 
2210:PRINTUS 

780 IF UFLAG=1 THEN PRINT " : " T AB < 5) 5 " > 
UNDERCARRIAGE DOWN < :" 

790 IF UFLAG=0 THEN PRINT " : " TAB < 6) ", " > 
UNDERCARRIAGE UP < :" 

800 RETURN 

810 REM ************************* 

820 REM ASSIGN HORIZON/COMPASS 
830 IF ABS(INT < WA+.5) )=3 THEN GOSUB 980 
840 IF ABS(INT ( WA+- 5) )=2 THEN GOSUB 1070 
850 IF ABS<INT(WA+.5))=1 THEN GOSUB 1160 
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860 IF INT(WA+.5>=0 THEN GOSUB 1250 
370 REM NEXT TWO LINES USED TO 
GRADUALLY STRAIGHTEN UP WINGS 
880 IF WA>0 THEN WA=WA-.2 
390 IF WA<0 THEN WA=WA+.2 
900 IF WA >- 2 THEN 1350 
910 FOR Z=1 TO 7 
920 MS(8-Z)=AS<Z> 

930 NEXT Z 

940 FOR Z=1 TO 7 

950 MS(Z>=AS(Z> 

960 NEXT Z 

970 GOTO 1350 

980 REM WA=3 OR -3 

990 AS(1)=” * M 

1000 AS < 2 > = 11 ** 

1010 AS < 3) = 11 ** 

1020 AS < 4 ) = M ** 

1030 AS ( 5) = 11 ** 

1040 AS < 6}=" ** 

1050 AS<7>="** 

1060 RETURN 

1070 REM WA=2 OR -2 

1080 AS <1)=" 

1090 A S(2)=” ** " 

1100 AS < 3) = 11 *** 

1110 AS<4>=" *** 

1120 AS(5)= » *** 

1130 AS(6)="*** 

1140 AS(7)= " 

1150 RETURN 

1160 REM WA=1 OR -1 

1170 AS(1)=" 

1130 AS < 2)=" 

1190 AS(3> = M ******* 

1200 AS( 4 ) = ** ****** 

1210 AS (5) =****** 

1220 AS < 6) = ** 

1230 AS(7)= ** 

1240 RETURN 
1250 REM WA=0 
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1260 AS<1)= M 
1270 A$<2)=” 

1280 A*M3)=” 

1290 A$(4)= H **************" 

1300 A*(5)= 11 
1310 AS(6>=" 

1320 A$<7)=” 

1330 RETURN 

1340 REM ************************ 

1350 REM ASSIGN COMPASS STRINGS 
1360 F2=ANG-F1 
1365 F2=ANG 

1370 IF F2< 0 THEN FA=INT< <F2 + 375) /30) 
1380 IF F2>=0 THEN FA=INT((F2+15)/30) 
1390 IF FA=12 THEN FA=0 
1400 C$<1)= " . N. 

1410 IF FA=11 THEN C*(2>=" -0:.- ":GOTO 

1450 

1420 IF FA=0 THEN C*<2)=" . .0.. ":GOTO 

1450 

1430 IF FA=1 THEN C*3<2>=" . . : 0 . ":GOTO 

1450 

1440 C*5 (2) = M - - : - . " 

1450 IF FA=10 THEN CsM3>=” . 0 : ..”:GOTO 

1480 

1460 IF FA=2 THEN C*M3)=” . . : e.”--GOTO 

1480 

1470 C*(3)= M - - : 

1480 IF FA=9 THEN C*(4>=” W0 - X — E 11 I GOTO 
1510 

1490 IF FA=3 THEN C*(4>=" W — X-0E" l GOTO 
1510 

1500 C$<4)=" U — X — E" 

1510 IF FA=8 THEN C^(5)= M -0 : - - ":GOTO 

1540 

1520 IF FA=4 THEN CS(5)= M -- : 0. ” --GOTO 

1540 

1530 C $ (5 ) = " . . : 

1540 IF FA=7 THEN CsM6)=" -0:.- " : GOTO 

1580 

1550 IF FA=6 THEN C$<6)=" -.0.. ":GOTO 
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■: GOTO 


1580 

1560 IF FA=5 THEN C*(6)=" . 

1580 

1570 C*<6)= " - . : - . " 

1580 C$(7> = " . S. 

1590 IF ANG>360 THEN ANG=ANG-360 
1600 F2=ANG 

1610 IF W>0 THEN W=W-.4 
1620 IF W<0 THEN W=W+.4 
1630 RETURN 
1640 REM STALL/FALL 
1650 IF SALL=-1 THEN 1710 
1660 FOR J=1 TO 10 
1670 PRINTTAB(J)5"YOU HAVE STALLED!!” 
1680 NEXT J 

1690 AIRSPEED=AIRSPEED/4 

1700 RETURN 

1710 FOR J=1 TO 10 

1720 PRINTTAB<J)5”UNCONTROLLED DIVE!!” 
1730 PRINTTAB<21-J);"PULL UP!!" 

1740 NEXT J 

1750 ALTIMETER=ALTIMETER/4 
1760 RETURN 

1770 REM ************************ 

1780 REM CRASH 
1790 CRASH=1 
1800 ALTIMETER=0 

1810 M*5="** *C R** A ** S* H* !!*"SREM 
25 CHARACTERS LONG 
1820 FOR J=1 TO 20 
1830 PRINTTAB(J>;"CRASH!" 

1840 PRINTTAB(21-J);"CRASH!" 

1850 NEXT J 

1860 FOR J = 1 TO 7 

1870 G=INT(RND(1)*11)+1 

1880 AS<J)=MIDS<M*,G,14) 

1890 NEXT J 
1900 RETURN 

1910 REM ************************ 

1920 REM ADJUST HORIZON 

1930 G35=" " :REM 14 SPACES 
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1940 ON EV + 3 GOSUB 1960,2020,2070,2080,2 
140 

1950 RETURN 
1960 REM EV=-2 
1970 FOR J = 1 TO 4 
1980 ASK J)=ASKJ+3) 

1990 NEXT J 

2000 ASK 5 > =GS>: AS* ( 6) =GS5: ASi ( 7 ) =G$ 

2010 RETURN 
2020 REM EV=-1 
2030 FOR J=1 TO 6 
2040 ASKJ>=ASK J + l) 

2050 NEXT J 
2060 ASK7)=GS» 

2070 RETURN:REM EV=0 
2080 REM EV=1 
2090 FOR J=6 TO 1 STEP -1 
2100 ASK J + 1)=ASK J) 

2110 NEXT J 

2120 ASK1)=GS5 

2130 RETURN 

2140 REM EV=2 

2150 FOR J=4 TO 1 STEP -1 

2160 ASK J+3>=ASKJ> 

2170 NEXT J 

2180 ASKINGS*: ASK2)=GS5: ASK3)=GS> 

2190 RETURN 

2200 REM ************************ 

2210 REM INPUT INTO COMMAND NAME 
2220 U$=“-" 

2230 IF XSi=CHRSK32> THEN US>= " THROTTLE ON 


2240 IF XS5=" ." 
2250 IF X$= ,, 0" 
CLIMB" 

2260 IF XS*="Q" 
NOSE UP" 

2270 IF XS>="A" 
2280 IF XSs="Z" 
2290 IF X*="M" 
2300 RETURN 


THEN US»="THROTTLE OFF" 

AND ALTIMETER>0 THEN U*=" 

AND ALT I METER=0 THEN US*=" 

THEN USs="NOSE DOWN 11 
THEN US»="BANK LEFT" 

THEN US5="BANK RIGHT" 
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231.0 REM ************************ 

2320 REM INITIALIZATION 

2330 POKE 53280,0:POKE 53281,0:PRINT M 

i CLR}{PUR >" 

2340 J=RND < VAL (RIGHTS <TI3s, 2) ) ) : REM 
RANDOMIZE 

2350 Q$="-” : REM 

21 CHARACTERS IN STRING 
2360 UFLAG=l:REM UNDERCARRIAGE - 

1 - DOWN, 0 - UP 
2370 EFLAG=l:REM CLIMB RATE 
2380 ANG=0:TAKEOV=0:LND=0 
2390 AIRSPEED=0 

2400 DIST=0:REM DISTANCE COVERED * RANGE’ 
2410 ALTIMETER=0 

2420 ELEVATE=0:REM ANGLE OF ELEVATION 
2430 WA=0:REM WING ANGLE; USED IN 

HORIZON PRINTOUT 

2440 FUEL=750:CRASH=0:F2=0:F1=0:REM 
FOR DIRECTION CHANGE/COMPASS ROUTINE 
2450 CLOCK=0:REM TIME 
2460 X^="” 

2470 RETURN 

4000 SID=54272 

4010 FOR L1=0 TO 23 

4020 POKE SID+L1,0 

4030 NEXT LI 

4040 POKE SID+24,15 

4050 POKE SID+5,15 

4060 POKE SID+6,255 

4070 POKE SID+4,17 

4080 FOR LI=48 TO 220 STEP .7 

4090 POKE SID+1,L1 

4100 NEXT LI 

4110 FOR LI=28 TO 200 

4120 POKE SID+1,L1 

4130 NEXT LI 

4140 FOR L1=200 TO 28 STEP -1 
4150 POKE SID+1,L1 
4160 NEXT LI 
4170 POKE SID+1,0 
4180 RETURN 
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BBC Micro Listings 

Space Landing 

10 REM SPACE LANDING SIMULATION I 
SO PRINT RND(TIME) 

30 RBI ***************************** 

40 REM SET STARTING VALUES 
50 FUEL=200+RND(1)*40 
60 VELOCITY=RND(1)*20-6 
70 HEIGHT=500-RND(1 )*10 
80 MOOE 6:VDU 19,1,2:0; 

90 PRINT " FUEL";TAB(12)VELOCITY":TAB(24]HEIGHT" 

100 REM ***************************** 

110 REM MAJOR CYCLE 
120 PROCpicture 

130 IF FUEL<=0 THEN FUEL=0:THRUST=0:G0T0 170 
140 A$=INKEY$[0) 

150 IF A$<"0" OR A*>"9" THEN 140 
160 THRUST=VAL(A$J+.1 
170 FUEL=FUEL-THRUST 
180 FLAG=THRUST-2 
190 THRUST=0 

200 HEIGHT=HEIGHT+VEL0CITY+FLAG/4 

210 VELOCITY=VELOCITY+FLAG 

220 IF HEIGHT<=10 THEN 240 

230 IF HEIGHT>10 THEN 120 

240 IF VELOCITY?—9 AND VEL0CITY<5 THEN 290 

250 PROCrule 

260 PRINT "YOU HAVE CRASHED INTO THE SURFACE..." 

270 IF HEIGHT>0 THEN HEIGHT=-HEIGHT 
280 GOTO 320 

290 PRINT "YOU HAVE LAND HD SAFELY I" 

300 PRINT "YOUR SKILL RATING IS"INT(-1000*FUEiy(VEL0CITY-HEI 
GHT)) 

310 HEIGHT=0 
320 PROCrule 

330 PRINT "FINAL INSTRUMENT READINGS WERE:" 

340 PRINT " FUEL";TAB(12)VELOCITY";TABI24)HEIGHT" 
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350 PROCpicture 

360 PROCruLe 

370 IF HEIGHT>=Q THEN END 

380 IF HEIGHT<0 THEN PRINT "NEW CRATER ON MOON"INT(ABS(100*1 
HEIGHT+.2)/3))/100"METERS DEEP I" 

390 PRINT "YOUR SKILL RATING IS "INT(100*FUEl/(VELOCITY-HEIG 
HT)) 

400 END 

410 DEFPROCruLe 

420 PRINT "-" 

430 ENDPROC 

440 DEFPROCpicture 

450 PRINT ;INT(100*FUEL)/100; 

460 PRINT TAB(12)j-INT(100*VEL0CITY)/100; 

470 IF HEIGHT>=0 THEN PRINT TAB(24);INT(100*HEIGHT)/100 
480 IF HEIGHT<0 THEN PRINT 
490 ENDPROC 


261 



Monte Carlo 


10 REM MONTE CARLO DEMONSTRATION 
20 PROCinitial 

30 REM **************************** 

40 REM MAJOR CYCLE 
50 REPEAT 
60 PRXpicture 

70 IF P=EP AND Q=EQ THEN PRINTsPRINT "DEMONSTRATION OVER":END 
80 PROCmonte 
90 UNTIL FALSE 

100 REM **************************** 

110 DEFPROCpicture 
120 A$(P,Q]="0" 

130 M=M+1 

140 CLSsPRINTsPRINT 
150 PRINT "MOVE n M 
160 FOR X=1 TO 10 
170 FOR Y=1 TO 10 
180 PRINT A$(X f Y) 

190 NEXT Y 
200 PRINT 
210 NEXT X 
220 ENDPROC 

230 REM **************************** 

240 DEFPROCmonte 
250 A$(P f Q)=” 

260 G=0 
270 T=RND(4] 

280 ON T GOSUB 320,330,340,350 
290 IF G=0 THEN 270 
300 IF G=1 AND RND[1)>.5 THEN 270 
310 RETURN 

320 IF P>1 THEN P=P-1 :G=G+1 s RETURN 
330 IF P<10 THEN P=P+1 :G=G+1 s RETURN 
340 IF Q>1 THEN Q=QM :G=G+1:RETURN 
350 IF Q<10 THEN Q=Q+1 ;G=G+1 S RETURN 
360 ENDPROC 

370 REM **************************** 

380 DEFPROCinitiaL 
390 PRINT RND(TIME] 
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400 MOOE 4:VDU 19,0,7;0;19,1,1 ;0; 

410 DIM A$(10,10] 

420 FOR X=1 TO 10 
430 FOR Y=1 TO 10 
440 A$(X f Y)= n ." 

450 NEXT Y 
460 NEXT X 
470 PRINT:PRINT 

460 PRINT "ENTER FIRST START CO-ORDINATE (LESS 
490 INPUT P 

500 IF PCI OR P>10 THEN 490 

510 PRINT "ENTER SECOND START CO-ORDINATE (LESS 
520 INPUT Q 

530 IF QCI OR Q>10 THEN 520 
540 PRINT:PRINT 

550 PRINT "ENTER FIRST END CO-ORDINATE (LESS 
560 INPUT EP 

570 IF EP=P OR EPCI OR EP>10 THEN 560 

580 PRINT "ENTER SECOND END CO-ORDINATE (LESS 

590 INPUT EO 

600 IF EQ=Q OR EQCI OR EQ>10 THEN 590 
610 A$(P f Q]="0" 

620 A$(EP f EQ]="X" 

630 ENDPROC 


THAN 10]" 

THAN 10]" 

THAN 10]" 

THAN 10)" 
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Simultaneous Equations 


10 REM SIMULTANEOUS EQUATIONS 
20 PRINT RND[TIME] 

30 MODE 6:VDU 19 f 1 f 3;0; 

40 HS=0 
50 FD=RND(1] 

60 PRINTsPRINT "DECAY FACTOR IS»FD 
70 PRXdelay 
80 CLS 

90 PRINTsPRINT 

100 PRINT "ENTER NUMBER OF CELL X TO START [LE 

SS THAN 40)" 

110 INPUT CPs IF CP<1 OR CP>39 THEN 110 

120 PRINTsPRINT 

130 PRINT "WE HAVE"CP"X CELLS" 

140 PRINTsPRINT 

150 PRINT "ENTER NUMBER OF CELL Y TO START (LE 

SS THAN 40)" 

160 INPUT EPsIF EP<1 OR EP>39 THEN 160 
170 CLSsPRINTSPRINT "PLEASE STAND BY..." 

180 PROCdeLaysCLS 
190 DA=1 

200 IF CP>EP/FD THEN CP=EP/FD 

210 PRINT "-" 

220 PRINT "TIME ELAPSEDs"DA 
230 PRINT INT(CP)"CELL X" 

240 PRINT INT(EP)"CELL Y" 

250 REM *************************** 

260 REM MAJOR CYCLE 
270 PROCdelay 
280 DA=0A+1 

290 PRINT "-" 

300 PRINT "TIME ELAPSED:"DA 
310 IF CP>EP/FD THEN CP=EP/FD 

320 REM EQUATIONS FOLLOW; MODIFY PARTS OF THEM TO SEE WHAT 
HAPPENS 

330 CP=CP+((8*CP-CP*EP/3)*FD) 

340 EP=EP+((4*EP-EP*CP)*.01) 

350 PRINT INT(CP]"CELL X" 
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360 PRINT INT(EP]"CELL Y" 

370 IF EP<2 OR CP<2 THEN 410 
380 PROCdelay 
390 GOTO 280 

400 REM *************************** 

410 IF DA>HS THEN HS=DA 
420 PRINTsPRINT 

430 PRINT "YOUR CELL CLASH SIMULATION SURVIVED" 
440 PRINT "FOR"DA"TIME PERIODS." 

450 PRINT "-" 

480 PRINT "THE BEST SURVIVAL TIME SO FAR IS"HS 
470 PROCdelay 

480 PRINT "-" 

490 PRINT "DO YOU WANT A NEW RUN (Y OR N]?" 

500 A$=GET$ 

510 IF A$<>"Y" AND A$<>"N" THEN 500 
520 IF A$="Y" THEN CLSsGOTO 60 
530 PRINT "OK":PRINTsPRINT:END 
540 REM *************************** 

550 DEFPROCdelay 

560 FOR J=1 TO 2000:NEXT J 

570 EMJPROC 
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Life 


10 REH CONWAY'S LIFE SIMULATION 
20 REM RANDOM INITIAL COLONY 
30 PROCinltial 

40 REM ************************* 

50 REM MAJOR CYCLE 
60 REPEAT 

70 GENERATI0N=GENERATI0N+1 
80 PROCpIcture 
90 PROCevolve 
100 UNTIL FALSE 

110 REM ************************* 

120 DEFPROCevoLve 
130 FOR X=2 TO 12 
140 FOR Y=2 TO 12 
150 C=0 

160 IF A$(X-1,Y-1)= n X n THEN C=C+1 
170 IF A$[X-1 f Y)="X" THEN C=C+1 
180 IF A$(X-1,Y+1)="X" THEN C=C+1 
190 IF A$[X,Y-1 ]="X" THEN C=C+1 
200 IF A$(X f Y+1)="X" THEN C=C+1 
210 IF A$[X+1,Y-1)="X" THEN C=C+1 
220 IF A$(X+1,Y)="X" THEN C=C+1 
230 IF A$(X+1,Y+1)="X" THEN G=C+1 

240 IF A$[X,Y)="X" AND C<>2 Af® C<>3 THEN B$(X f Y)=" " 
250 IF A$[X,Y)=" " AND C=3 THEN B$(X,Y]="X" 

260 NEXT Y 
270 NEXT X 
280 ENDPROC 

290 REM ************************* 

300 DEFPROCpIcture 
310 CLS 
320 PRINT 

330 PRINT TAB(4]}"GENERATION"GENERATION 

340 PRINT 

350 FOR X=2 TO 12 

360 FOR Y=2 TO 12 

370 A$[X,Y)=B$(X f Y) 

380 PRINT A$(X f YJ; 
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390 NEXT Y 

400 FOR Y=12 TO 2 STEP-1 
410 PRINT A$[X f Y); 

420 NEXT Y 
430 PRINT 
440 NEXT X 
450 ENDPROC 

460 RBI ************************* 

470 DEFPROCInitlal 
480 PRINT RUNTIME] 

490 VDU 19,0,1 ;0;19,1;3}0; 

500 DIM A$(13,13] ,B$(13,13) 

510 PRINT:PRINT " PLEASE STAND BY..." 

520 FOR X=1 TO 13 
530 PRINT 14-X; 

540 FOR Y=1 TO 13 

550 IF X=1 OR Y=1 OR X=13 OR Y=13 THEN 570 
560 IF RND(1]>.5 THEN A$[X,Y)="X":GOTO 580 
570 A$(X,Y]=" " 

580 B$(X,Y)-A$(X,Y] 

590 NEXT Y 
600 NEXT X 
610 SOTO 650 

620 READ D:IF D=99 THEN 650 

630 READ E:A$(D,E)="X":B$(D,E)="X" 

640 GOTO 620 

650 GENERATIONS 

660 ENDPROC 

670 DATA 5,5,5,9,6,6,6,8 

680 DATA 7,7 

690 DATA 8,6,8,8,9,5,9,9 
700 DATA 99 
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Robot Logo 

100 REM ROBOT LOGO 
105 REM BBC VERSION 
107 MODE 7 
110 PROCinitiaLise 
120 GOTO 490 

130 REM ********************* 

140 REM 
150 REM 
160 REM 
170 REM 
180 REM 
190 REM 
200 REM 
210 REM 
220 REM 
230 REM 
240 REM 
250 REM 
260 RBI 
270 REM 
280 RBI 
290 REM 
300 RBI 
310 REM 
320 DATA 

330 REM ********************* 

340 REM INT UX,AX 

350 UX=INT[UX+.5):AX=INT(AX+.5) 

360 RETURN 

370 REM ********************* 

380 REM PRINT OUT 

390 CLS 

400 PRINT ,, STEP ,, PSN ,f > ”;A$(PSN) :PRINT 
410 FOR J=1 TO DEPTH 
420 FOR K=1 TO BREADTH 
430 PRINT Z$[J y K); 

440 NEXT K 
450 PRINT 
460 NEXT J 
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470 RETURN 

480 REM ********************* 

490 REM READ PROGRAM 
500 CNT=CNT+1 
510 READ A$[CNT) 

520 IF A$(CNT)="*" THEN 550 

530 IF CNT<20 THEN 500 

540 REM ********************* 

550 REM EXECUTE PROGRAM 

560 PSN=0:REM PROGRAM STEP NUMBER 

570 PSN=PSN+1 

580 IF PSN=21 THEN 580sREM END 
590 FLAG=0 
600 M$=A$[PSN) 

610 IF M$="*" THEN 610:REM END 


620 

N$=LEFT$(M$,2) 


630 

IF 

N$="ST" 

THEN 

560:REM START AGAIN 

640 

IF 

N$= ,, PR" 

THEN 

GOSUB 380:REM PRINTOUT 

650 

IF 

N$= H FO n 

THEN 

FLAG=1 

660 

IF 

N$="BA" 

THEN 

FLAG=2 

670 

IF 

N$= ,, TU n 

THEN 

FLAG=3 

680 

IF 

NS^'HO" 

THEN 

FLAG=4 

690 

IF 

N$= ,, CL" 

THEN 

FLAG=5 

700 

IF 

N$= ,, GO" 

THEN 

FLAG=6 

710 

IF 

N$="RA" 

THEN 

FLAG=7 

720 

IF 

N$="RE" 

THEN 

FLAG=8 

730 

IF 

N$= ,, EN" 

THEN 

FLAG=9 

740 

IF 

N$= ,, FA n 

THEN 

FLAG=10 

750 

IF 

FLAG<1 THEN 570 

760 

ON 

FLAG GOSUB 780,940,1000,1160,1220,1260,1400,1460,1530 


,1580 


765 GOTO 570 

770 REM ********************* 

780 REM FORWARD 

790 M$=MID$(M$,4) 

800 IF ASC(M$)=87 THEN M$=MID$(M$,6) 
810 F$="F" 

820 NUM=VAL(M$] 

830 FOR E=1 TO NUM 

840 IF UX<1 OR UXMDEPTH THEN 880 

850 IF AX<1 OR UX>BREADTH THEN 880 
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860 Z$(UX,AX)=T$ 

880 IF F$="F" THEN UX=UX+UP:AX=AX+AC*2 
890 IF F$="B" THEN UX=UX-UP:AX=AX-AC*2 
900 60SUB 340 
910 NEXT E 
920 RETURN 

930 REM ********************* 

940 RBI BACK 

950 M$=MID$[M$,4) 

960 IF ASC[M$)=75 THEN M$=MID$[M$,3] 

970 F$="B" 

980 GOTO 820 

990 REM ********************* 

1000 RBI TURN 

1010 M$=MID$(M$,4) 

1020 IF ASC(M$)=78 THEN M$=MID$(M$ f 3] 

1030 NUM=VAL[M$) 

1040 Y=INT((NUM+17.5j/45] 

1050 IF Y=0 OR Y=8 THEN RETURN 
1060 FOR J=1 TO Y 

1070 IF UP=-1 AND AC=0 THEN AC=1:G0T0 1130 
1080 IF UP=0 Aid AC=1 THEN UP=1:G0T0 1130 
1090 IF UP=1 AND AC=0 THEN AC=-1:G0T0 1130 
1100 IF UP=0 AND AC=-1 THEN UP=-1:GOTO 1130 
1110 IF [UP=-1 AND AC=-1) OR [UP=1 AND AC=1) THEN AC=0:G0T0 1 
130 

1120 IF [UP=-1 AND AC=1) OR [UP=1 AND AC=-1) THEN UP=0 
1130 NEXT J 
1140 RETURN 

1150 REM ********************* 

1160 REM HOME 

1170 AX=INT([BREADTH+.5)/2) 

1180 UX=INT[(DEPTH+.5]/2] 

1190 l)P=-1 sAC=0:REM FACES UP 
1200 RETURN 

1210 REM ********************* 

1220 REM CLEAN 

1230 GOSUB 1870 
1240 RETURN 

1250 REM ********************* 

1260 RBI GO X,Y 
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1270 P=0 
1280 P=P+1 

1290 IF MID$(M$ f P,1J="," THEN 1320 
1300 IF P<LEN(M$) THEN 1280 
1310 RETURN:REM ERROR 
1320 UX=VAL(MID$(M$,4,P-1]] 

1330 AX=VAL(RIGHT$(M$,LEN(M$)-P]} 
1340 60SUB 340 

1350 IF UX<1 OR IDODEPTH THEN 1380 
1360 IF AX<1 OR AX>BREADTH THEN 1380 
1370 Z$(UX,AX)=R$ 

1380 RETURN 

1390 REM ********************* 

1400 REM RANDOM 

1410 AX=INT(RND[1 ]*BREADTH) 

1420 UX=INT[RND[1 )*DEPTH) 

1430 Z$[UX,AX)=R$ 

1440 RETURN 

1450 REM ********************* 

1460 REM REPEAT 

1470 M$=MID$(M$,4) 

1480 IF ASC(M$]=69 THEN M$=MID$[M$,5] 
1490 RECNT=VAL(M$) 

1500 MARKER=PSN 
1510 RETURN 

1520 REM ********************* 

1530 REM END REPEAT 

1540 RECNT=RECNT-1 
1550 IF RECNT>0 THEN PSN=MARKER 
1560 RETURN 

1570 REM ********************* 

1580 REM FACE 

1590 M$=MID$(M$,4) 

1600 IF ASC(M$]=69 THEN M$=MID$(M$,3) 
1610 NUM=VAL(M$) 

1620 Y=INT[(NUM+17.5]/45)*45 

1630 IF Y=0 OR Y=360 THEN UP=-1:AC=0 

1640 IF Y=45 THEN UP=-1:AC=1 

1650 IF Y=90 THEN UP=0:AC=1 

1660 IF Y=135 THEN UP=1 :AC=1 

1670 IF Y=180 THEN UP=1:AC=0 
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1680 IF Y=225 THEN UP=1:AC=-1 
1690 IF Y=270 THEN UP=0:AC=-1 
1700 IF Y=315 THEN UP=-1 :AC=-1 
1710 RETURN 

1720 REM ********************* 

1730 DEFPROCinitialise 
1740 PRINT RND(TIME) 

1750 CLS 

1760 REM ADJUST NEXT TWO LINES FOR DIFFERENT MODES 
1770 BREADTH=40:REM CHARACTERS ACROSS 
1780 DEPTH=25:REM CHARACTERS DOWN 
1790 BREADTH=BREADTH-1 
1800 DEPTH=D EPTH-3 

1810 UP=-1;AC=0:REM STARTS FACING UP 

1820 DIM A$(20]:REM FOR ROBOT PROGRAM 

1830 DIM Z$(DEPTH f BREADTH) :REM DISPLAY 

1840 T$= I, X"!R$="X":REM SYMBOL FOR ROBOT'S TRAIL 

1850 AX=0:UX=0 

1860 REM FILL ARRAY WITH SPACES 
1870 FOR J=1 TO DEPTH 
1880 FOR K=1 TO BREADTH 
1890 Z$(J,K)=" " 

1900 NEXT K 
1910 NEXT J 
1920 ENDPROC 
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Point Duty Robot 

100 REM POINT-DUTY ROBOT 
105 REM BBC VERSION 
107 MODE 0 
110 PROCinitialise 
120 GOTO 490 

130 REM ft** 1 #*#*#***#*#******* 

140 REM 
150 REM 
160 REM 
170 REM 
180 RBI 
190 REM 
200 RBI 
210 REM 
220 RBI 
230 REM 
240 RBI 
250 REM 
260 RBI 
270 REM 
280 RBI 
290 REM 
300 RBI 
310 REM 
320 DATA 

330 REM ********************* 

340 REM INT UX,AX 

350 UX=INT[UX+.5]:AX=INT(AX+.5) 

360 RETURN 

480 REM ********************* 

490 REM READ PROGRAM 
500 CNT=CNT+1 
510 READ A$(CNT) 

520 IF A$(CNT)="*" THEN 550 

530 IF CNT<20 THEN 500 

540 REM ********************* 

550 REM EXECUTE PROGRAM 

560 PSN=0:REM PROGRAM STEP NUMBER 

570 PSN=PSN+1 


273 



580 IF PSN=21 THEN 580:REM END 
590 FLAG=0 
600 M$=A$(PSN) 

610 IF M$="*" THEN 610:REM END 


620 

N$=LEFT$(M$,2) 


630 

IF 

N$="ST" 

THEN 

560:REM START AGAIN 

650 

IF 

N$="FO" 

THEN 

FLAG=1 

660 

IF 

N$="BA" 

THEN 

FLAG=2 

670 

IF 

N$= ,, TU n 

THEN 

FLAG=3 

680 

IF 

N$= ,, HO" 

THEN 

FLAG=4 

700 

IF 

N$=»60" 

THEN 

FLAG=5 

710 

IF 

N$= ,, RA n 

THEN 

FLAG=6 

720 

IF 

N$= n RE" 

THEN 

FLAG=7 

730 

IF 

N$= H EN H 

THEN 

FLAG=8 

740 

IF 

N$= ,, FA n 

THEN 

FLAG=9 


750 IF FLAG<1 THEN 570 

760 ON FLAG GOSUB 780,940,1000,1160,1260,1400,1460,1530,1580 
765 GOTO 570 

770 REM ********************* 

780 REM FORWARD 

790 M$=MID$(M$,4) 

800 IF ASC(M$)=87 THEN M$=MID$(M$,6) 

810 F$="F" 

820 NUM=VAL(M$) 

830 FOR E=1 TO NUM 
840 IF UX<1 OR UXMJEPTH THEN 880 
850 IF AX<1 OR UX>BREADTH THEN 880 
860 PLOT 69,AX,UX 

880 IF F$="F" THEN UX=UX+UP:AX=AX+AC*2 
890 IF F$="B" THEN UX=UX-UP:AX=AX-AC*2 
900 GOSUB 340 
910 NEXT E 
920 RETURN 

930 REM ********************* 

940 REM BACK 

950 M$=MID$(M$,4] 

960 IF ASC(M$)=75 THEN M$=MID$[M$,3] 

970 F$="B" 

980 GOTO 820 

990 REM ********************* 

1000 REM TURN 
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1010 M$=MID$(M$,4) 

1020 IF ASC(M$)=78 THEN M$=MID$(M$,3) 

1030 NUM=VAL[M$) 

1040 Y=INT((NUM+11.25J/22.5) 

1050 IF Y=0 OR Y=16 THEN RETURN 
1060 FOR J=1 TO Y 

1065 IF (UP=-2 AND AC=0J OR (UP=2 AM) AC=2) THEN AC=1:GOTO 11 
30 

1070 IF UP=-2 AND AC=1 THEN AC=2:G0T0 1130 
1075 IF [UP=-2 AND AC=2) OR (UP=0 AND AC=-2) THEN UP=-1:GOTO 
1130 

1080 IF (UP=-1 AMD AC=2) OR (UP=1 AM) AC=-2) THEN UP=0:G0T0 1 
130 

1085 IF (UP=0 AM) AC=2) OR [UP=2 AND AC=-2j THEN UP=1:G0T0 11 
30 

1090 IF UP=1 AND AC=2 THEN UP=2:G0T0 1130 
1095 IF UP=2 AND AC=1 THEN AC=0:G0T0 1130 
1100 IF UP=2 AND AC=0 THEN AC=-1:G0T0 1130 
1105 IF UP=2 AND AC=-1 THEN AC=-2:G0T0 1130 
1110 IF UP=-1 AND AC=-2 THEN UP=-2:G0T0 1130 
1115 IF UP=-2 AND AC=-2 THEN AC=-1:G0T0 1130 
1120 IF UP=-2 AND AC=-1 THEN AC=0 
1130 NEXT J 
1140 RETURN 

1150 REM ********************* 

1160 REM HOME 

1170 AX=INT((BREADTH+.5J/2) 

1180 UX=INT( (DEPTH+.5]/2) 

1190 UP=-2:AC=0:REM FACES UP 
1200 RETURN 

1210 REM ********************* 

1220 REM CLEAN 

1230 GOSUB 1870 
1240 RETURN 

1250 REM ********************* 

1260 REM GO X t Y 

1270 P=0 
1280 P=P+1 

1290 IF MID$(M$,P,1)=" f " THEN 1320 
1300 IF P<LEN(M$) THEN 1280 
1310 RETURN:RBI ERROR 
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1320 UX=VAL(MID$(M$ p 4,P-1]) 

1330 AX=VAL(RIGHT$IM$,LEN(M$)-P)J 
1340 GOSUB 340 

1350 IF UX<1 OR UX>DEPTH THEN 1380 
1360 IF AX<1 OR AX>BREADTH THEN 1380 
1370 PLOT 69,AX,liX 
1380 RETURN 

1390 REM ********************* 

1400 REM RANDOM 

1410 AX=INT{RND11]*BREADTH) 

1420 UX=INT(RM) (1 ] *DEPTH) 

1430 PLOT 69,AX,UX 
1440 RETURN 

1450 REM ********************* 

1460 REM REPEAT 

1470 M$=MID$(M$ t 4] 

1480 IF ASC(M$]=69 THEN M$=MID$(M$,5) 
1490 RECNT=VAL[M$) 

1500 MARKER=P8N 
1510 RETURN 

1520 REM ********************* 

1530 REM END REPEAT 

1540 RECNT=RECNT-1 
1550 IF RECNTM) THEN PSN=MARKER 
1560 RETURN 

1570 REM ********************* 

1580 REM FACE 

1590 M$=MID$(M$,4) 

1600 IF ASC[M$)=69 THEN M$=MID$(M$,3) 
1610 NUM=VAL(M$) 

1620 Y=INT[[NUM+11.25)/22.5)*22.5 
1630 IF Y=0 OR Y=360 THEN UP=-2:AC=0 
1635 IF Y=22.5 THEN UP=-2:AC=1 
1640 IF Y=45 THEN UP=-2:AC=2 
1645 IF Y=67.5 THEN UP=-1:AC=2 
1650 IF Y=90 THEN UP=0:AC=2 
1655 IF Y=112.5 THEN UP=1 :AC=2 
1660 IF Y=135 THEN UP=2:AC=2 
1665 IF Y=157.5 THEN UP=2:AC=1 
1670 IF Y=180 THEN UP=2:AC=0 
1675 IF Y=202.5 THEN UP=2:AC=-1 
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1680 IF Y=225 THEN UP=2:AC=-2 
1685 IF Y=247.5 THEN UP=1 :AC=-2 
1690 IF Y=270 THEN UP=0:AC=-2 
1695 IF Y=292.5 THEN UP=-1:AC=-2 
1700 IF Y=315 THEN UP=-2:AC=-2 
1705 IF Y=337.5 THEN UP=-2:AC=-1 
1710 RETURN 

1720 REM ********************* 

1730 DEFPROCinitialise 
1740 PRINT RND[TIME] 

1750 CLS 

1760 REM ADJUST NEXT TWO LINES FOR DIFFERENT MODES 
1770 BREADTHS 280:REM CHARACTERS ACROSS 
1780 DEPTHS024:REM CHARACTERS DOWN 
1790 BREADTH=BREADTH-1 
1800 DEPTH=DEPTH-3 

1810 UP=-2:AC=0:REM STARTS FACING UP 
1820 DIM A$(20]:REM FOR ROBOT PROGRAM 
1830 UX=0: AX=UX 
1840 ENDPROC 
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Connect Four 


10 REM CONNECT FOUR 
20 REM BBC version 
30 REM A. W. PEARSON 
40 MODE 6:VDU 19,0,4*0; 

50 PRINT 
60 PRINT 

70 PRINT "CONNECT FOUR" 

80 PRINT 

90 PRINT "ENTER YOUR MOVE AS A NUMBER BETWEEN" 
100 PRINT "1 AND 8, ENTER 0 FOR A NEW GAME..." 
110 FOR F=1 TO 1000:NEXT F 
120 DIM A$(10,10] ,B(10,2] 

130 FLAG=0 

140 C$="M":H$="o" 

150 FOR F=1 TO 8 
160 B(F,1)=6 
170 NEXT F 
180 FOR F=1 TO 6 
190 FOR (3=1 T0 8 
200 A$[F,G)="." 

210 NEXT G 
220 NEXT F 

230 REM ************************* 

240 RBI ACCEPT HUMAN MOVE 
250 PROCboard 

260 PRINT;PRINT "YOUR MOVE..." 

270 INPUT A 

280 IF A=0 THEN RUN 

290 IF A<1 OR A>8 THEN 270 

300 L=0 

310 IF A$(L+1,A)<>"." OR L=6 THEN 340 

320 L=L+1 

330 GOTO 310 

340 IF L=0 THEN 270 

350 A$(L,A)=H$ 

360 B(A,1)=B(A,1)-1 
370 PROCboard 
3B0 PROCmovea 
390 PROCboard 
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400 GOTO S60 

410 REM ************************* 

420 DEFPROCboard 
430 CLS 

440 FOR F=1 TO 6 
450 FOR G=1 TO 8 
460 PRINT A$(F r G]; 

470 NEXT 6 

460 PRINT 

490 NEXT F 

500 PRINT "12345678" 

510 PRINT 

520 IF FLAG=1 THEN PRINT "I HAVE WON"!END 
530 ENDPROC 

540 REM ************************* 

550 DEFPRXnoves 
560 PRINT "MY MOVE..." 

570 MV=0 

580 FOR F=1 TO 8 

590 B(F t 2)=0 

600 NEXT F 

610 FOR F=1 TO 8 

620 FOR X=-1 TO 1 

630 FOR Y=-4 TO 1 

640 IF B(F,1)=0 THEN 680 

650 IF A$(B(F,1)+X,F+Y)="" OR A$(B(F,1]+X,F+Y)="." THEN 680 

660 IF A<(B(F,1)+X,F+Y)=H$ THEN 60SUB 810 

670 IF A$(B(F|1)+X,F+Y)=C$ THEN 60SUB 910 

680 NEXT Y 

690 NEXT X 

700 NEXT F 

710 P=0 

720 FOR F=1 TO 8 

730 IF BlF,2)>P THEN P=B(F,2):N=F 

740 NEXT F 

750 A«(B(N f 1),N]=C$ 

760 B(N,1)=8(N t 1)-1 
770 N=0 
780 P=0 
790 ENDPRX 

800 REM ************************* 
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810 MV=2 
880 M1=HV 

830 IF A$tB(F,1]+[X*2],F+(Y*2))=H$ THEN MV=HV+10 
840 IF A$[B(F,1)-X f F-Y)=H$ THEN MV=MV+20 
850 IF MVOM1+10 THEN 870 

860 IF A$(B(F,1J+(X*3],F+(Y*3J J=H$ THEN MV=MV+1000 
870 B(F,2]=B(F,2)+MV 
880 M1=0 
890 RETURN 

900 REM ************************* 

910 MV=2 
920 M1=*V 

930 IF A$tB(F,1J+(X*2),F+(Y*2)]=C$ THEN MV=MV+9 
940 IF A$(B(F,1]-X,F-Y)=C$ THEN MV=MV+20 
950 IF MVOM1+9 THEN 970 

960 IF A$(B(F,1)+[X*3],F+(Y*3)]=C$ THEN MV=MV+2000:FLAG=1 
970 B(F,2)=B(F,2j4MV 
980 RETURN 



Washington D.C 


10 REM WASHINGTON D.C. - BBC version 
20 GOSUB 1160:REM INITIALIZE 
30 REM *************************** 

40 RBI MAJOR CYCLE 
50 P=INT(P+[P*273/ML)) 

60 GOSUB 160:REM PRINTOUT 
70 GOSUB 510:REM CALCULATE 
80 REM NOW CHECK END GAME 
SO GOSUB 710:RB4 STANDARD OF LIVING 
100 GOSUB 780:RBI INFLATION RATE 
110 GOSUB 840:REM UNEMPLOYMENT 
120 IF GAME=1 THEN CLS.-GOTO 890 
130 GOTO 50 

140 REM *************************** 

150 REM PRINTOUT 
160 CLS 

170 PRINT "PRESIDENT "jAS;":" 

180 PRINT "YOUR ADMINISTRATION HAS BEEN IN PO 

WER F0R"Y+Z/4"YEARS" 

190 PRINT "-" 

200 PRINT "-STATE OF THE NATION-" 

210 PRINT "-" 

220 PRINT "POPULATION"? 

230 PRINT "NO. UNEMPLOYHD"INT(U]" "INT[100*U/P)"X" 

240 PRINT "CURRENT WAGES $"W0" INFLATION"INT(IP)"X" 

250 PRINT "GOVT. B<PENDITURE LAST QTR. $M"GE 

260 PRINT "UNEMPLOYMENT COST $M"INT(10*GU)/10 

270 PRINT "INCOME FROM TAXES $M"INT(GI*10]/10 

280 PRINT "BUDGET SURPLUS(+)/DEFICIT(-J $M»INT(BD*10)/10 

290 PRINT "GROSS DOMESTIC PRODUCT $M"INT(G0P*10)/10 

300 IF Y+Z/4>.5 THEN PRINT "CHANGE IN LIVING STANDARD"INT((2 

*( (RGDP/AG0P]*100)-100)/3]"X" 

310 PRINT "-" 

320 PRINT "PUBLIC INVESTMENT"Y"Q"Z"$M"INT(IV*10)/10 

330 PRINT "-" 

340 PRINT "OK, PRESIDENT ";A$j".„" 

350 INPUT "ENTER GOVERNMENT SPENDING $M";GE 

360 INPUT "ENTER COST OF WAGES $M";WN 

370 PRINT "IS YOUR ADMINISTRATION IN FAVOR OF" 
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380 PRINT "IMMIGRATION THIS QUARTER (Y/N)?" 

390 X$=INKEY$ 

400 IF X$<>"Y" AND X$<> ,! N" THEN 390 
410 PRINT TAB(20);"0K..,";X$ 

420 FOR H=1 TO 1000sNEXT H 
430 IF X$<>"Y" THEN RETURN 

440 PRINT "HOW MANY IMMIGRANTS WILL YOU ALLOW I 

NTO THE US?" 

450 INPUT M 

460 IF M<0 THEN 450 

470 P=P+M 

480 RETURN 

490 REM *************************** 

500 REM CALCULATIONS 
510 CN=CN+(CN*IP/100) 

520 U=P*(GE+IV)/(CN*10)+P*(IP/1000) 

530 GU=U*WN/ML:REM UNEMPLOYMENT COST 
540 GI=(((P-U)*WN*.4)/ML)sREM INCOME 
FROM TAXES 

550 BD=BD+GI-GU-GEsREM BUDGET DEFICIT 
560 AGDP=AGDP*(1+(IP/100)) 

570 GDP=GE+IV+[(P-U)*WN/ML) 

580 RGDP=GDP*440/AGDP 

590 IP=((GE+IV)/CN*.1+(WN/W0)/100)*100 

600 IV=(CN*67)/(IP*IP) 

610 W0=WN 

620 Z=Z+1sIF Z>4 THEN Z=1sY=Y+1 
630 RETURN 

640 REM *************************** 

650 REM CHECK BUDGET DEFICIT 
660 IF BD >—1000 THEN RETURN 
670 GAME=1 
680 FLAG=1 
690 RETURN 

700 REM *************************** 

710 REM CHECK STANDARD OF LIVING 
720 IF YC.75 THEN RETURN 

730 IF INT( (2*( (RGDP/AGDP]*100]-100)/3) >-15 THEN RETURN 
740 GAME=1 
750 FLAG=2 
760 RETURN 
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770 REM *************************** 

780 REM CHECK INFLATION RATE 
790 IF IP<15 THEN RETURN 
800 GAME=1 
810 FLAG=3 
820 RETURN 

830 REM *************************** 

840 REM CHECK UNEMPLOYMENT 

850 IF INT(U*100/P] <15 THEN RETURN 

860 GAME=1 

870 FLAG=4 

880 RETURN 

890 REM *************************** 

900 REM EM3 OF THE GAME 

910 PRINT "PRESIDENT ";A$;", YOUR" 

920 PRINT "ADMINISTRATION'S POOR ECONOMIC" 

930 PRINT "PERFORMANCE HAS LH) TO AN UNACCEPTABLE" 

940 IF FLAG=1 THEN PRINT "BUDGET DEFICIT" 

950 IF FLAG=2 THEN PRINT "DROP IN THE STANDARD OF LIVING" 

960 IF FLAG=3 THEN PRINT "RISE IN THE INFLATION RATE" 

970 IF FLAG=4 THEN PRINT "RISE IN UNEMPLOYMENT" 

980 PRINT " AMONG OTHER THINGS..." 

990 PRINT "-" 

1000 PRINT "THE LACK OF CONFIDENCE IN YOUR" 

1010 PRINT "ADMINISTRATION IS SO BAD THERE ARE" 

1020 PRINT "CALLS FOR YOU TO RESIGN...YOU STEP" 

1030 PRINT "ASIDE TO ALLOW THE VICE-PRESIDENT TO" 

1040 PRINT " OCCUPY THE OVAL OFFICE" 

1050 FOR H=1 TO 1000:NEXT H 

1060 PRINT "-" 

1070 PRINT "YOU WERE PRESIDENT FOR"Y+(Z*.25]"YEARS" 

1080 PRINT "DURING YOUR TERM OF OFFICE, THE" 

1090 PRINT "POPULATION ROSE BY"P-3*ML 

1100 PRINT "THE UNEMPLOYMENT RATE BECAME"INT(U*1000/P)/10"56" 
1110 PRINT "AND THE INFLATION RATE BECAME"INT(10*IP)/10"X" 
1120 PRINT "STANDARD OF LIVING CHANGED BY"INT((2*((RGDP/AGDP 
)*100]-100]/3)"%" 

1130 PRINT "AND THE BUDGET SURPLUS/DEFICIT WAS $M"I 

NT[10*BD)/10 

1140 END 

1150 REM *************************** 
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1160 REM INITIALIZATION 
1170 PRINT RND(TIME) 

1180 MODE 6:VDU 19 f 0 f 3;0;19 f 1 f 0;0; 

1190 ML=1000*1000 

1200 P=3*ML:REM POPULATION 

1210 U=P/10:REM UNEMPLOYMENT 

1220 IV=236:REM INVESTMENT 

1230 GE=118sREM GOVERNMENT EXPENDITURE 

1240 GU=0:REM COST OF UNEMPLOYMENT 

1250 GI=0:REM INCOME FROM TAXES 

1260 WN=100:REM NEW WAGES 

1270 W0=100:REM OLD WAGES 

1280 IP=5sREM INFLATION PERCENT 

1290 GDP=440:REM GROSS DOMESTIC PRODUCT 

1300 AGDP=440:REM BASE YEAR GDP 

1310 RGDP=440:REM REAL GDP 

1320 CN=354:REM ECONOMIC CONSTANT (USED THROUGHOUT) 

1330 Z=1:GAME=0:FLAG=0 

1340 Y=OsREM YEAR 

1350 PRINT “ENTER YOUR LAST NAME" 

1360 INPUT A$ 

1370 RETURN 
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Stock Market 


10 REM STOCK MARKET 
SO REM BBC version 
30 PRINT RM3 (TIME) 

40 MODE 6:VDU 19,0,3;0;19,1,1 ;0; 

50 DIM S(5),N(5],P(5],D(5) 

60 S(1)=1,49:S(2)=1.99:S(3)=2.49:S(4)=2.99sS(5]=3.49 
70 N(1)=2000:N(2)=1500:N(3)=1200:N(4)=1000:N(5)=800 
80 BB=265:TV=15000:00=15000:DAY=1 

90 PRINT:PRINT "ENTER YOUR GOAL FOR THIS SIMULATION," 

100 PRINT TAB(8);"$16,000 TO $100,000" 

110 INPUT GOAL 

120 IF GQALC16000 THEN PRINT "TOO LONI":GOTO 90 
130 IF GQAL>100*1000 THEN PRINT "TOO HIGHI":GOTO 90 
140 RBI ************************ 

150 RB4 MAJOR LOOP 
160 FOR C=1 TO 5 

170 REM ADJUST THE 55 IN NEXT LINE TO MODIFY GAME; 90 VERY 
HARD, 30 VERY EASY 
180 D(C)=RW)(55) 

190 P(C)=RND(100-D(C)J 
200 NEXT C 
210 PROCpicture 
220 GOTO 470 

230 REM ************************ 

240 DEFPROCpicture 
250 CLS 

260 PRINT "-" 

270 PRINT "DAY"DAY" YOUR GOAL IS $"GQAL 

280 PRINT "-" 

290 PRINT "COMPANY NUMBER:" 

300 PRINT TAB(2);1;TAB(9);2;TAB(16);3;TAB(25);4;TAB(32);5 
310 PRINT "CHANCE OF INCREASE (X):" 

320 PRINT TAB(2);P(1);TAB(9);P(2);TAB(16];P(3);TAB(25];P(4); 
TAB(32);P(5) 

330 PRINT "CHANCE OF DECREASE (X):" 

340 PRINT TAB(2);D(1);TAB(9);D(2);TAB(16);D(3];TAB(25);D(4); 
TAB(32);D(5) 

350 PRINT "CURRENT VALUE PER SHARE:" 

360 PRINT "$";INT(S(1)*100)/100;TAB(8);"$";INT(S(2)*100)/100 
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370 PRINT TAB(15);"$"}INT(S(3)*100)/100jTAB(23);"$"}INT(S(4) 
♦100J/100; 

380 PRINT TAB(30];"$";INT(S(5)*100)/100 
390 PRINT "NO. OF SHARES HELD:" 

400 PRINT TAB(2);N(1);TAB(9);N(2);TAB(16];N(3);TAB(24);N(4); 
TAB(31);N(5) 

410 PRINT "BAMC $"INT(BB)" TOTAL WORTH $"TV 

420 PRINT "-" 

430 IF TV>G0AL THEN PRINT "YOU'VE HIT YOUR FINANCIAL 60ALI 
END 

440 EWPROC 

450 REM ♦♦*♦♦*♦♦*♦♦*♦*♦♦♦*♦**♦♦* 

460 REM ** SELL ** 

470 PRINT "DO YOU WANT TO SELL ANY SHARES [Y/NJ?" 

480 A$=GET$ 

490 IF A$<>"Y» AND A$<>"N" THEN 480 

500 IF A$=»N" THEN 700 

510 PRXpicture 

520 PRINT "WHICH ONES TO SELL?”; 

530 A$=INKEY$ 

540 IF A$<"1" OR A$>”5” THEN 530 

550 C=VAL(A$J 

560 PRINT " OK”C 

570 PRINT "HOW MANY OF»C"TO SELL"; 

580 INPUT N 

590 IF N>N(C) THEN PRINT "YOU DON'T HAVE THAT MANY!"sGOTO 58 
0 

600 REM ************************ 

610 REM ADJUST FIGURES AFTER SALE 
620 BB=BB+S[C)*N:REM ADD VALUE TO BANK 
630 N(C]=N(C)-N:REM SUBTRACT NO. SOLD 
640 TV=0:REM SET TOTAL WORTH TO ZERO 
650 REM NOW DETERMINE CURRENT WORTH 
660 FOR C=1 TO 5 
670 TV=TV+N(C)*S[C) 

680 NEXT C 

690 TV=TV+BB:REM ADD IN BANK BALANCE 
700 PRXpicture 

710 REM ************************ 

720 RBI ♦* BUY ** 

730 PRINT "DO YOU WANT TO BUY ANY SHARES (Y/NJ?" 
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740 A$=GET* 

750 IF A$<>"Y" AM) A$<>"N n THEN 740 
760 IF A$="N" THEN 900 
770 PROCpIcture 

780 PRINT "WHICH COMPANY TO BUY?"; 

790 A$=GET$ 

800 IF A$<"1" OR A$>"5" THEN 790 
810 C=VAL(A$) 

820 PRINT " OK"C 

830 PRINT "HOW MANY OF"C"TO BUY"; 

840 INPUT N 

850 IF N*S(C)>BB THEN PRINT "YOU DON'T HAVE ENOUGH MONEY 1"sG 
OTO 840 

860 REM ************************ 

870 REM ADJUST FIGURES AFTER BUY 
880 BB=BB-S(C)*N 
890 N(C)=N(C)+N 
900 TV=0 

910 FOR C=1 TO 5 
920 TV=TV+N(C)*S(C) 

930 NEXT C 

940 TV=TV+BB 

950 PROCpIcture 

960 RBI ************************ 

970 REM MODIFY ALL INDICATORS 
980 TV=0 

990 FOR C=1 TO 5 
1000 K=RM)(100) 

1010 IF K<P(C) THEN S(C)=S[C]*(1+(P(C)/1000)) 

1020 K=RND[100) 

1030 IF K<D(C] THEN S(C)=SIC)/(1+(D(C]/1000)) 

1040 TV=TV+(S(C)*N[C)J 

1050 NEXT C 

1060 TV=TV+BB 

1070 00=410*1.005 

1080 W=(TV*100/00]-100 

1090 IF W=0 THEN W=.1 

1100 W=W+6 

1110 IF W<1 THEN W=1 

1120 IF W>15 THEN W=15 

1130 RESTORE 
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1140 FOR T=1 TO W 
1150 READ A$ 

1160 NEXT T 
1170 PRINT 

1180 REM ************************ 

1190 REM GIVE RATING, START NEW ROUND 
1200 PRINT "YOUR RATING AFTER THAT ROUND OF" 

1210 PRINT "TRADING IS '"jAS;"'" 

1220 PRINTsPRINT " <PRESS SPACEBAR TO CONTINUE >" 
1230 A$=GET$ 

1240 DAY=0AY+1 
1250 GOTO 160 

1260 DATA "HOPELESS","VERY, VERY POOR" 

1270 DATA "TERRIBLE","AWFUL","BAD" 

1280 DATA "VERY ORDINARY","AVERAGE" 

1290 DATA "REASONABLE","A LITTLE ABOVE AVERAGE" 

1300 DATA "FAIRLY GOOD","GOOD","VERY GOOD" 

1310 DATA "GREAT","EXCELLENT","SUPERLATIVE" 
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Detroit City 


10 REM DETROIT CITY - BBC version 
20 60SUB 1640:REM INITIALIZE 
30 GOTO 110 

40 MT=MT+1sREM COUNTS MONTHS 

50 GOSUB 650 

60 IF TP>200 THEN 1560 

70 PRINT "DO YOU WANT TO RESIGN (Y/N)?" 

80 GOSUB 1010 

90 IF A$="Y" THEN PRINT "OK f CHIEF":END 
100 GOSUB 1380 
110 GOSUB 650 

120 FOR T=1 TO 1000:NEXT T 
130 GOSUB 850 

140 PRINT "DO YOU WANT TO EXPAND OUTPUT [Y/N]?" 

150 GOSUB 1010 

160 IF A$="Y" THEN 1080 

170 IF SF=1 THEN 210 

180 PRINT "DO YOU WANT TO SELL FACTORY 4 [Y/N]?" 

190 GOSUB 1010 

200 IF A$="Y» THEN 1250 

210 GOSUB 650 

220 INPUT "HOW MANY EMPLOYEES TO HIRE";HE 

230 NE=NE+HE:IF HEX) THEN 260 

240 INPUT "HOW MANY EMPLOYEES TO FIRE";HE 

250 NE=NE-HE 

260 GOSUB 650 

270 P1=AS:REM SET PI EQUAL TO OLD PRICE 

280 INPUT "WHAT IS YOUR SELLING PRICE";AS 

290 REM NEXT LINE REJECTS TOO BIG A CHANGE IN SELLING PRICE 

300 IF ABS(PI-AS]>2500 THEN PRINT "TOO BIG A CHANGE FOR THE 

MARKET".-GOTO 280 

310 CLS 

320 PRINT:PRINT:PRINT 

330 MI=RND(4000]+48*1000:REM THIS MONTH'S SALES BY INDUSTRY 
340 C=C+1:REM COUNTS NUMBER OF MONTHS 
350 IF C<3 THEN 470 

360 M=INT[RND(1 ]*10+1 ]/4:RBi INFLATION 
370 CLS 

380 PRINT "INFLATION RATE THIS QUARTER IS"M"%" 
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390 PRINT "AVERAGE WAGES BILL WILL NOW RISE TO" 

400 AW=(AW*M/100]+AW 

410 PRINT TAB(8];"$"INT(AW)" PER EMPLOYEE" 

420 IF INKEY$<>"" THEN 420 

430 PRINTsPRINT TAB(12);"ANY KEY TO CONTINUE" 

440 IF INKEY$="" THEN 440 
450 FA=[FA*M/100]+FA 
460 C=0 

470 Y(1 )=NE*15/12sREM SALES BASB) ON NUMBER OF EMPLOYEES 
480 Y(2]=(100-AS/FA]*MI/100:REM SALES BASED ON MONTHLY 

INDUSTRY SALES 

490 REM NEXT LINES SET LOWEST FIGURE FROM Y(1],Y(2],M(5] 
EQUAL TO Y(3) 

500 IF Y(1 )<Y(2) AND Y(1)<M(5] THEN Y(3]=Y(1) :GOTO 540 
510 IF Y(2)<Y(1) AND Y(2]<M(5) THEN Y(3)=Y(2) :GOTO 540 
520 Y(3]=M(5] 

530 REM NEXT LINES DETERMINE MONTHLY SALES 
540 IF ABS(PI-AS)<501 THEN Y(3]=3.6*Yl3]/3 
550 IF Y(3] >M(5] THEN Y(3)=Y(3]-1975:G0T0 550 
560 MC=[MC*M/100]+MC 

570 EF=Y[3]/M[5)*100:REM EFFICIENCY X AS SALES DIVIDED BY 
TOTAL OUTPUT 

580 AC=(MC*(ABS(85-EF)/3)/100]+MC:REM AVERAGE COST PER 
VEHICLE 

590 MP=[(Y(3]*(AS-AC])-(NE*AW/12]):REM MONTHLY PROFIT 
600 MP=INT(MP/(100*1000]] 

610 TP=TP+MP/10:REM TOTAL PROFIT IN MILLIONS 
620 M=0 
630 GOTO 40 

640 REM ************************* 

650 REM REPORT PRINTOUT 
660 CLS 

670 PRINT "INDUSTRY SALES"MI"IN MONTH"MT 

680 IF MT>0 THEN PRINT "YOUR SALES:"INT(Y(3]]" ("INT[Y(3)*10 

00/MI)/10"X OF TOTAL )" 

690 PRINT "-" 

700 PRINT "YOU HAVE"NE"EMPLOYEES" 

710 PRINT "AVERAGE WAGES ARE $"AW 

720 PRINT " OR $M"INT(AW*NE/(100*1000]/12]/10"PER MONTH" 

730 PRINT "-" 

740 IF MT=0 THEN RETURN 
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750 PRINT "AVERAGE COST PER VEHICLE IS $"INT(AC) 

760 PRINT "AND AVERAGE SELLING PRICE IS $"INT(AS) 

770 PRINT "SO THE AVERAGE PROFIT IS $"INT(AS-AC] 

780 PRINT "OR $M"INT((AS-AC)*Y(3)/(100*1000])/10"PER MONTH" 

790 PRINT "-» 

800 PRINT "PROFIT FOR THE MONTH IS $M"MP/10 

810 PRINT "& TOTAL PROFIT TO DATE IS $M»INT(TP*10)/10 

820 PRINT "--" 

830 RETURN 

840 REM ************************* 

850 REM MONTH REPORT 
860 CLS 

870 IF MT>0 THEN PRINT "YOUR MONTHLY SALES ARE"INT(Y(3)] 

880 PRINT "-" 

890 PRINT "MAXIMUM MONTHLY OUTPUT:" 

900 PRINT TAB(3);"FACTORY 1:"INT(M(1)) 

910 PRINT TAB(3);"FACTORY 2:"INT(M[2]) 

920 PRINT TAB[3){"FACTORY 3:"INT(M(3]] 

930 IF SF=1 THEN 960 

940 PRINT TAB(3];"FACTORY 4:"INT(M(4)) 

950 PRINT "-" 

960 PRINT "TOTAL OUTPUT IS"INT(M(5]) 

970 PRINT "-" 

980 PRINT "EFFICIENCY LEVEL IS"INT(EF)"*" 

990 RETURN 

1000 REM ************************* 

1010 REM GET REPLIES 
1020 A$=INKEY$ 

1030 IF A$<>"Y" AND A$<>"N" THEN 1020 
1040 PRINT TAB(22);A$ 

1050 FOR J=1 TO 500: NEXT J 
1060 RETURN 

1070 REM ************************* 

1080 REM INCREASE OUTPUT? 

1090 IF M[4]=0 THEN X=15:G0T0 1110 
1100 X=18 

1110 PRINT "IT WILL COST $M"X" TO EXPAND" 

1120 PRINT TAB(8];"OUTPUT BY 1*" 

1130 PRINT "-" 

1140 PRINT "HOW MANY % DO YOU WISH TO RAISE OUTPUT?" 

1150 INPUT EP:IF EP<0 OR EP>100 THEN 1150 
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1160 M(5)=0 

1170 FOB T=1 TO 4 

1180 M(T]=M(T)+W(T)*EP/100 

1190 M(5)=M(5)+M(T) 

1200 NEXT T 

1210 TP=TP-EP*X 

1220 FOR T=1 TO 500:NEXT T 

1230 GOTO 170 

1240 REM ************************* 

1250 REM SALE OF FACTORY FOUR 

1260 PRINT "FACTORY 4 IS VALUED FOR SALE AT $M104" 

1270 PRINT "YOU CAN'T REBUY IT LATER IF YOU SELL 

IT..." 

1280 PRINT "DO YOU WANT TO SELL (Y/N)?» 

1290 GOSUB 1010 
1300 IF A$="N" THEN 210 
1310 TP=TP+104 
1320 SF=1 

1330 M(5]=M(1)+M(2)+M(3) 

1340 M(4]=0 
1350 GOTO 170 

1360 REM ************************* 

1370 REM CHECK ON LOSSES 

1380 IF MP>0 THEN SA=0:G0T0 1480 

1390 SA=SA+1 

1400 IF SA>11 THEN 1420 

1410 GOTO 1480 

1420 CLS:PRINT 

1430 PRINT "YOU JUST MADE YOUR TWELFTH MONTHLY" 

1440 PRINT "LOSS IN A ROW." 

1450 PRINT TAB[6);"YOUR EMPLOYMENT" 

1460 PRINT TAB[6);"IS HEREBY TERMINATED!!" 

1470 END 

1480 IF TP>=-250 THEN 1530 
1490 CLSsPRINT 

1500 PRINT "UNDER YOUR MANAGEMENT, THE COMPANY HAS" 

1510 PRINT "LOST MORE THAN $M250!" 

1520 GOTO 1450 

1530 IF TP>200 THEN 1570 

1540 RETURN 

1550 REM ************************* 
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1560 REM SWEET SWEET SUCCESS!!! 

1570 CLSSPRINT 

1580 PRINT "WELL DONE! THE COMPANY HAS MADE MORE" 
1590 PRINT " THAN $M200. YOU'VE BEEN MADE" 
1600 PRINT " A MEMBER OF THE BOARD" 

1610 FOR T=1 TO 2000 s NEXT T 
1620 END 

1630 REM ************************* 

1640 REM INITIALIZATION 
1650 PRINT RUNTIME) 

1660 MODE 6:VDU 19,0,3;0;19,1,1 ;0; 

1670 DIM M(5),Y(5] 

1680 NE=18000:REM STARTING NO EMPLOYEES 
1690 AW=22995:REM STARTING AVERAGE WAGE 
1700 AC=11100:REM COST PRICE/VEHICLE 
1710 AS=12000:RB1 SELLING PRICE 
1720 MI=50*1000: MC=10100 
1730 Y[3)=12500 

1740 MS=25:EF=77:FA=160:SF=0:MT=0 
1750 FOR J=1 TO 5 
1760 READ M(J] 

1770 NEXT J 
1780 RETURN 

1790 DATA 8900,3250,2500,1625,16275 
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Gridiron 


10 REM GRIDIRON 
20 PRINT RND(TIME) 

30 MODE 6:VDU 19,0,2;0;19,1 f 7;0; 

40 GOSUB 70 
50 GOTO 220 

60 REM ************************ 

70 FOR X=1 TO 1500 s NEXT X 
80 RETURN 

90 REM ************************ 

100 PRINT A$;SA 
110 PRINT B$;SB 
120 RETURN 

130 REM ************************ 

140 IF Z$=A$ THEN Z$=B$sRETURN 

150 Z$=A$:RETURN 

160 REM ************************ 

170 IF INKEY$<> ,,M THEN 170 
180 PRINT " > PRESS ANY KEY < n 

190 IF INKEY$= ,,n THEN 190 
200 PRINT TAB[20);"OK”:RETURN 
210 REM ************************ 

220 REM INITIALIZE 

230 DEF FNA(X]=INT(RND[1)*X)+1 

240 PRINT "ONE PLAYER OR TWO" 

250 INPUT X 

260 IF X<1 OR X>2 THEN 250 

270 IF X=1 THEN VC=1sA$="SILICON COWBOYS"sGOTO 300 
280 PRINT "WHAT IS THE NAME OF THE HOME TEAM?" 

290 INPUT A$sIF A$="" THEN 290 

300 PRINT "AND THE NAME OF THE VISITING TEAM?" 

310 INPUT B$:IF B$= ,,n THEN 310 
320 Z$=A$sNU=35 
330 CLS 

340 PRINT "THERE ARE"INT[10*(60-(W/4]]]/10 M MINUTES TO GO" 
350 PRINT TAB[8);Z$" TO KICK OFF" 

360 PRINT "YOU ARE ON YOUR OWN"NU"YARD LINE" 

370 IF VC=1 AND Z$=A$ THEN GOSUB 70:GOTO 400 
380 PRINT "TO KICK OFF..." 

390 GOSUB 170 
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400 A=FNA(20)+40 

410 PRINT Z${" HAVE..." 

420 FOR X=1 TO A 

430 PRINT TAB(X/3){"KICKED"X"YARDS" 

440 NEXT X 
450 NU=NU+X 
460 60SUB 70 

470 PRINT "THE BALL IS CAUGHTI" 

480 GOSUB 70 
490 A=FNA[30)+10 
500 FOR X=1 TO A 

510 PRINT TAB(X/5);"AND RETURNH)"X"YARDS" 

520 NEXT X 

530 NU=ABS[100-NU+X] 

540 GOSUB 140 

550 PRINT "-" 

560 PRINT "THE BALL IS DOWN ON" 

570 PRINT Z$"'S"NU"YARD LINE" 

580 IF Z$=A$ AND VC=1 THEN GOSUB 70:GOTO 600 

590 GOSUB 170 

600 TG=10:D=0:SL=NU 

610 IF W=60 OR W=180 THEN 2010 

620 IF W=120 THEN 2070 

630 IF W=240 THEN 2140 

640 CLS 

650 PRINT LEFT$(A$,6){SA;LEFT$(B$,6];SB 

660 PRINT INT(10*(60-[W/4]]]/10"MINUTES TO GO" 

670 GOSUB 70 

680 PRINT "-" 

690 PRINT Z$" IN POSSESSION" 

700 PRINT TAB(4);D"DOWN" 

710 PRINT TAB(4);TG"YARDS TO GO" 

720 PRINT "- " 

730 PRINT "START AT"SL"YARD LINE" 

740 PRINT "NOW ON"NU"YARD LINE" 

750 PRINT 100-NU"YARDS TO TOUCHDOWN" 

760 PRINT "-" 

770 PRINT "ON THIS PLAY "; 

780 IF Z$=A$ THEN PRINT A$;" CAN":GOTO 800 
790 PRINT B$;" CAN" 

800 PRINT "EITHER 1 - THROW" 
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810 PRINT " 2 - CARRY" 

820 PRINT " OR 3 - PUNT" 

830 P =0 

840 IF Z$=A$ AND VC =1 AND D<3 THEN P=2:G0T0 900 

850 IF Z$=*$ AND VC =1 AND T6<7 THEN P=2:G0T0 900 

860 IF Z$=A$ AND VC =1 AND [100-NU]<31 THEN P=3:G0T0 900 

870 IF Z$=A$ AND VC =1 THEN P=1:G0T0 900 

880 K$=INKEY$:IF K$<" 1 " OR K$>"3" THEN 880 

890 P=VAL(K$]:PRINT TAB(10]j"OK»P 

900 GOSUB 70 

910 W=W+1 

920 CLS 

930 PRINT Z$;" f YOUR QUARTERBACK HAS" 

940 PRINT TAB[ 8 ];"GOT THE BALL" 

950 PRINT »-" 

960 PRINT "WAIT FOR THE COUNT, ";Z$;"," 

970 PRINT TAB( 8 ];"THEN HIT ANY KEY..." 

980 IF INKEYIO"" THEN 980 

990 GOSUB 70 

1000 GOSUB 2200 

1010 IF E=11 THEN 2340 

1020 PRINT "-" 

1030 ON P GOTO 1050,1310,1590 
1040 REM ************************ 

1050 PRINT "YOU'VE THROWN"E* 5 "YARDS" 

1060 PRINT TAB[4];"AND THE PLAY IS..." 

1070 A=FNA( 8 ] 

1080 IF A =1 THEN 1520 
1090 A=FNA[E+1] 

1100 IF A =1 THEN PRINT TAB(20] 5 "...COMPLETE":GOTO 1220 
1110 PRINT TAB[20];"...INC0MPLETE":D=0+1 
1120 GOSUB 170 

1130 PRINT "-" 

1140 IF D>3 THEN 1160 
1150 GOTO 610 

1160 PRINT "THAT WAS YOUR 4TH DOWN" 

1170 PRINT "AND YOU'VE LOST POSSESSION!!" 

1180 D=0:TG=10:NU=ABS[100-NU):SL=NU 
1190 GOSUB 70 
1200 GOSUB 140 
1210 GOTO 610 
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1220 GOSUB 170 

1230 NU=NU+{E*5)sTG=TG-(E*5) 

1240 IF NU>100 THEN 1800 
1250 IF TG<1 THEN 1280 
1260 D=0+1: IF D>3 THEN 1160 
1270 GOTO 610 
1280 D=0:TG=10:SL=NU 
1290 GOTO 610 

1300 REM ************************ 

1310 A=FNA(15) 

1320 IF A=1 THEN 1510 
1330 E=A-5 

1340 IF E<0 THEN 1440 

1350 IF E=0 THEN E=1:G0T0 1370 

1360 PRINT "GOOD SNAP, PASS AND RUN" 

1370 PRINT "YOU'VE GAINED"E"YARDS" 

1380 GOSUB 170 

1390 TG=TG-EsNU=ABS(Nm-E):D=0+1 
1400 IF NU>100 THEN 1800 
1410 IF TG<1 THEN 1280 
1420 IF D>3 THEN 1160 
1430 GOTO 610 

1440 PRINT "GREAT RUNNING BY THE OPPOSITION HAS" 
1450 PRINT "CAUSE) YOU TO LOSE"ABSlE]"YARDS" 

1460 TG=TG-E:NU=NIH-E:D=D+1 
1470 GOSUB 170 
1480 IF D>3 THEN 1160 
1490 GOTO 610 

1500 RBI ************************ 

1510 PRINT "BAD SNAP...YOU'VE" 

1520 PRINT "FUMBLED...AND" 

1530 PRINT "YOU'VE LOST POSSESSION..." 

1540 NU=100-NUsD=OsTG=10:SL=NU 
1550 REM ************************ 

1560 GOSUB 170 
1570 GOTO 460 

1580 REM ************************ 

1590 PRINT "NICE PUNT..." 

1600 PRINT "YOU'VE KICKED"E*4"YARDS" 

1610 NU=NU+E*4 

1620 IF NU>100 THEN 1650 
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1630 PRINT "-" 

1640 GOTO 460 
1650 A=FNA(3] 

1660 IF A>1 THEN 1740 

1670 PRINT "BUT YOU'VE MISSBD THE GOAL11" 

1680 IF NU-E*4<80 THEN NU=ABS[100-(NU-E*4)J:GOTO 1700 
1690 NU=2Q 

1700 D=0:TG=10:SL=NU 
1710 GOSUB 140 
1720 GOSUB 170 
1730 GOTO 610 

1740 PRINT "....AND SCORED!" 

1750 IF Z$=B$ THEN SB=SB+3:G0T0 1770 

1760 SA=SA+3 

1770 GOSUB 100 

1780 GOSUB 170 

1790 NU=35:G0T0 330 

1800 CLS 

1810 FOR X=1 TO 5 

1820 PRINT TAB(X*2];"TOUCHDOWN!I!" 

1830 NEXT X 

1840 IF Z$=A$ THEN SA=SA+6:G0T0 1860 
1850 SB=SB+6 
1860 GOSUB 100 

1870 PRINT "TO PLAY FOR EXTRA POINT" 

1880 GOSUB 170 

1890 PRINT "-" 

1900 PRINT "THE BALL IS SNAPPB).. .PREPARE TO KICK!" 
1910 GOSUB 70 
1920 GOSUB 2200 

1930 IF E>9 THEN PRINT "YOU MISSH)":NU=20:G0T0 1970 

1940 PRINT "YOU SCORH)...":NU=35 

1950 IF Z$=^$ THEN SA=SA+1:G0T0 1980 

1960 SB=SB+1:GOTO 1980 

1970 GOSUB 140 

1980 GOSUB 100 

1990 GOSUB 170 

2000 GOTO 330 

2010 FOR X=i TO 10 

2020 PRINT TAB[2*X);"PERIOD OVER" 

2030 NEXT X 
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2040 GOSUB 100 

2050 GOSUB 170 

2060 GOTO 660 

2070 FOR X=1 TO 10 

2080 PRINT TAB(2*X)^"HALF TIME" 

2090 NEXT X 
2100 GOSUB 100 
2110 Z$=B$ 

2120 GOSUB 170 

2130 NU=35 :W=W+2:GOTO 330 

2140 FOR X=1 TO 10 

2150 PRINT TAB(2*X);"GAME OVER" 

2160 NEXT X 
2170 GOSUB 100 
2180 END 

2190 REM ************************ 

2200 E=0 sX=10 

2210 IF Z$=A$ AND VC=1 THEN PRINT "THIS ONE FOR ";A$:GOTO 22 
90 

2220 E=E+1:X=X-1 

2230 PRINT TAB[E);E 

2240 FOR Y=1 TO X*1.5 

2250 IF INKEY$<>"" THEN Y=X*1.5+1: RETURN 

2260 NEXT Y 

2270 IF E=11 THEN RETURN 

2280 GOTO 2220 

2290 FOR E=1 TO FNA[7]+2 

2300 FOR J=1 TO 60s NEXT J 

2310 PRINT TAB[E];E 

2320 NEXT E 

2330 RETURN 

2340 PRINT "TOO LATE!" 

2350 PRINT "YOU«VE BEEN SACKS)!" 

2360 E=FNA(4) 

2370 IF E=3 THEN 2430 

2380 PRINT "AND LOST FIVE YARDSI" 

2390 TG=TG+5:D=D+1:NU=NU~5 
2400 GOSUB 170 
2410 IF D>3 THEN 1160 
2420 GOTO 610 

2430 PRINT "AND LOST POSSESSION!" 
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2440 D=OsNU=ABS[100-NU+5]sSL=NUsTG=10 
2450 GOSUB 170 
2460 GOSUB 140 
2470 GOTO 610 
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Tennis 


10 REM TENNIS - BBC version 
20 PRINT RND(TIME) 

30 MODE 6:VDU 19,0,3;0;19,1,1 ;0; 

40 AA=0:BB=0:T=OsKA=0 

50 XA=0:YA=0:ZA=0 

60 XB=0:YB=0:ZB=0 

70 DEF FNA(X)=INT(RND{1)*X)+1 

80 INPUT "ONE HUMAN PLAYER OR TWO";A 

90 IF A<1 OR A>2 THEN 80 

100 IF A=1 THEN A$="BJ0RNX"sVC=1 

110 IF VC=1 THEN 160 

120 PRINT "PLEASE ENTER A SIX-LETTER NAME" 

130 INPUT "NAME OF FIRST PLAYER";A$ 

140 IF LEN(A$)<6 THEN A$=A$+" "sGOTO 140 
150 A$=LEFT$(A$ f 6] 

160 INPUT "NAME OF SEC0M3 PLAYER" ;B$ 

170 IF LEN(B$)<6 THEN B$=B$+" "sGOTO 170 
180 B$=LEFT$(B$ f 6] 

190 S=1 :AA=1 :BB=1 
200 CLS 

210 P$=A$:R$=B$ 

220 REM ****************************** 

230 IF P$=A$ THEN R$=B$ 

240 IF P$=B$ THEN R$=A$ 

250 PRINT P$;" SERVING" 

260 PRINT "DO YOU WANT TO SERVE 1 - FAST" 

270 PRINT " OR 2 - SLOW" 

280 IF P$=A$ AND VC=1 AND SC=0 THEN KB=1sG0SUB 1720sGOTO 330 

290 IF P$=A$ AND VC=1 AND SC=1 THEN KB=2sG0SUB 1720sGOTO 330 

300 K$=INKEY$ 

310 IF K$<"1" OR K$>"2" THEN 300 
320 KB=VAL(K$) 

330 PRINTsPRINT TAB(6);KB;TAB[10);"> IT'S A 
340 IF KB=1 THEN PRINT "FAST"; 

350 IF KB=2 THEN PRINT "SLOW"; 

360 PRINT " SERVE..." 

370 GOSUB 1720 
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380 IF KB=1 THEN EB=FNA(3)sGOTO 400 
390 EB=FNA(8) 

400 IF EB=1 THEN 450 
410 IF EB=3 AND SC=0 THEN 520 
420 IF EB=3 AND SC=1 THEN 590 
430 GOTO 670 

440 REM ****************************** 

450 CLSsPRINT 

460 PRINT TAB(8)...ACE...." 

470 GOSUB 1720 
480 SC=0 

490 IF P$=A$ THEN 1140 
500 GOTO 1150 

510 REM ****************************** 

520 CLSsPRINT 

530 PRINT TAB(12);"_OUT....” 

540 PRINT TAB(8);”...SECOND SERVE..." 

550 GOSUB 1720 
560 SC=1 
570 GOTO 230 

580 REM ****************************** 

590 CLSsPRINT 

600 PRINT TAB(12];"....OUT_" 

610 PRINT TAB(9]_DOUBLE FAULT..." 

620 GOSUB 1720 
630 SC=0 

640 IF P$=A$ THEN 1150 
650 GOTO 1140 

660 REM ****************************** 

670 SC=0 

680 CLSsPRINT 

690 IF INKEY$<>"" THEN 690 

700 PRINT R$;" f THE BALL IS"sPRINT "IN YOUR COURT" 

710 PRINT "-" 

720 IF R$=A$ AND VC=1 THEN 750 

730 PRINT "HIT ANY KEY, WHEN YOU SEE THE ZERO, 

ETURN THE BALL..." 

740 IF INKEY$<>"" THEN 740 
750 X=4*FNA(3]sY=X 
760 GOSUB 1720 
770 E=5 


TO R 
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780 PRINT TAB(2*(11-E)];E 
790 Y=Y-1 
800 S$=INKEY$ 

810 IF S$<>"" AND E=0 THEN 890 

820 IF S$<>"" THEN 990 

830 IF Y>0 THEN 790 

840 E=E-1:Y=X 

850 IF E<-1 THEN 990 

860 IF E=-1 AND R$=A$ AM) VC=1 THEN 890 

870 GOTO 780 

880 IF KB=1 THEN EA=FNA(2]:GOTO 1000 
890 EA=FNA[4) 

900 IF E=0 AND R$=A$ AND VC=1 THEN EA=FNA(8) 

910 IF EA=1 THEN 940 

920 IF R$=A$ THEN R$=B$:GOTO 670 

930 R$=A$:G0T0 670 

940 PRINT R$;", YOU'VE HIT THE BALL" 

950 PRINT TAB(8);"OUT OF PLAY..." 

960 GOSUB 1720 

970 IF R$=^V$ THEN R$=B$:GOTO 1150 
980 GOTO 1140 
990 EA=FNA(4) 

1000 IF EA=1 THEN 1070 

1010 PRINT "YOU MISSED THE BALL, AND..." 

1020 GOSUB 1720 

1030 PRINT " IT WAS IN...BAD MISTAKE" 

1040 GOSUB 1720 

1050 IF R$=A$ THEN R$=B$:G0T0 1150 
1060 GOTO 1140 

1070 PRINT "YOU MISSED THE BALL AtC..." 

1080 GOSUB 1720 

1090 PRINT " IT WAS OUT..WELL LEFT" 

1100 GOSUB 1720 

1110 IF R$=A$ THEN R$=B$:G0T0 1140 
1120 GOTO 1150 

1130 REM ****************************** 

1140 AA=AA+1:GOTO 1160 
1150 BB=BB+1 

1160 IF AA<5 AND BB<5 THEN 1230 

1170 IF (BB>4 AND AA<4] OR (BB>4 AND BB-AA>1) THEN AA=1:BB=1 
:GOTO 1500 
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1180 IF (AA>4 AND BB<4] OR (AA>4 AND AA-BB>1) THEN AA=1:BB=1 
sGOTO 1440 

1190 IF AA>4 AND AA>BB THEN C$="ADV":D$="-":GOTO 1320 

1200 IF BB>4 AM) BB>AA THEN D$="ADV":C$="-":GOTO 1320 

1210 C$=" {DEUCE" :D $=" {D EUCE": GOTO 1320 
1220 REM ****************************** 

1230 RESTORE 
1240 FOR D=1 TO AA 
1250 READ C$ 

1260 NEXT D 
1270 RESTORE 
1280 FOR D=1 TO BB 
1290 READ D$ 

1300 NEXT D 

1310 REM ****************************** 

1320 CLS 

1330 PRINT "-" 

1340 PRINT " SET SET SET" 

1350 PRINT "-" 

1360 PRINT " 12 3 GAME" 

1370 PRINT A$;" ";XA;" ";YA;" "}ZA;" ";C$ 

1380 PRINT B$;" "}XB;" ";YB;" ";ZB;" ";D$ 

1390 PRINT "-" 

1400 GOSUB 1720 

1410 IF TOI THEN 230 
1420 END 

1430 REM ****************************** 

1440 CLS 

1450 PRINT "GAME TO ";A$ 

1460 GOSUB 1720 

1470 IF S=1 THEN XA=XA+1:C$="0":D$="0":GOTO 1560 
1480 IF S=2 THEN YA=YA+1:C$="0":D$="O":G0TO 1580 
1490 IF S=3 THEN ZA=ZA+1:C$=»0":D$="0":G0T0 1600 
1500 CLS 

1510 PRINT "GAME TO ";B$ 

1520 GOSUB 1720 

1530 IF S=1 THEN XB=XB+1: C$="0":D$="0": GOT0 1560 

1540 IF S=2 THEN YB=YB+1:C$="0":D$="0":GOTO 15B0 

1550 IF S=3 THEN ZB=ZB+1:C$="0":D$="0"sG0T0 1600 

1560 IF (XA>5 AND XB<5] OR (XA<5 AND XB>5) THEN 1630 

1570 IF (XA>5 AND XA-XB>1) OR (XB>5 AM) XB-XA>1) THEN 1630 
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1580 IF (YA>5 AW YB<5] OR [YA<5 AND YB>5) THEN 1630 

1590 IF (YA>5 AND YA-YB<1) OR {YB>5 AND YB-YA>1) THEN 1630 

1600 IF (ZA>5 AND ZB<5) OR (ZA<5 AND ZB>5) THEN 1680 

1610 IF (ZA>5 AIC ZA-ZB>1) OR {ZB>5 AIC ZB-ZA>1] THEN 1680 

1620 GOTO 1640 

1630 S=S+1 

1640 AA=1 :BB=1 

1650 IF P$=A$ THEN R$=A*:P$=B$:GOTO 1320 

1660 P$=A$;R$=B$:GOTO 1320 

1670 REM ****************************** 

1680 T=1 
1690 GOTO 1320 

1700 REM ****************************** 

1710 REM DELAY 

1720 FOR M=1 TO 1000:NB<T M 

1730 RETURN 

1740 DATA "0","15" f "30","40" 
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Grand Prix 


10 REM GRAND PRIX 

20 GOSUB 2210:REM Initialize 

30 PROCtreck 

40 REM ************************* 

50 REM MAJOR LOOP 
60 REPEAT 
70 PROCprIntout 
80 PROCacceL 
90 PROCbrakes 
100 PROCcorner 
110 UNTIL FALSE 

120 REM ************************* 

130 DEFPRXpr intout 
140 CLS 

150 PRINT "ENGINE TEMPERATURE"INT(ENG*10]/10"C. [MAX. 200]" 
160 PRINT "BRAKE TEMPERATUREINT[BRAK*10]/I0"C. (MAX. 500]" 
170 PRINT " DISTANCE COVEREDs"INT(DIST*10]/10"METERS" 

180 PRINT " s"INT(DIST*100/RR]/100"LAPS" 

190 PRINT "YOU'RE IN P0SITI0N"INT(FP] 

200 PRINT "-" 

210 PRINT " CURRENT SPEED:"INT(SPEED*10)/10"KPH" 

220 PRINT " :"INT[SPEED*5.555]/10"METERS PER M 

OVE" 

230 PRINT "- " 

240 PRINT "CORNER APPRCACHING"INT[APP]"METERS" 

250 PRINT "RECOMMENDE) SPEEDs ,, C(C]"KPH" 

260 PRINT "-" 

270 ENDPROC 

280 REM ************************* 

290 DEFPROCacceL 

300 X$=INKEY$sIF X$<>"Z" AND X$<>"M" AND X$<>" " THEN 300 
310 PRINT TAB(12];"0K" 

320 X=0 

330 IF X$="M" THEN X=SPEED/15 
340 IF X$="Z" THEN X=~SPEH)/15 
350 NUM=NUM+1sREM NUMBER OF MOVES 
360 SPEED=SPEED+X 
370 IF SPEED<0 THEN SPEED=0 
380 TRAV=SPEED*.5555sREM DISTANCE 
TRAVELLED 
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390 DIST=GIST+TRAV:REM TOTAL DISTANCE 
TRAVELLED 

400 ENG=ENGfr[X/2]+.07:IF ENG<70 THEN ENG=70+RM)(1 )*8:RB1 ENGIN 
E TEMP 

410 IF X>0 THEN BRAK=BRAK*.9:REM BRAKE TEMP FALLING; ACCELE 
RATING 

420 IF X<1 THEN BRAK=BRAK-(3*X)-RM)(1 )*3;REM BRAKE TEMP INCREA 
SING; BRAKING 

430 IF BRAK<8 THEN BRAK=B+RND(1)*8 
440 ENDPROC 

450 REM ************************* 

460 DEFPROCbrakes 

470 IF ENG>200 THEN PRINT "YOUR ENGINE HAS OVERHEATED":GOTO 84 
0 

480 IF BRAK>500 THEN PRINT "YOUR BRAKES HAVE OVERHEATED":GOTO 
840 

490 EIGPROC 

500 REM ************************* 

510 DEFPROCcorner 
520 APP=APP-TRAV 
530 IF APP>0 THEN RETURN 
540 CRASH=0 

550 IF SPEED>(C[C)*1.125) THEN CRASH=1:G0T0 700 

560 IF SPEED>(C(C]*1.1) THEN GOTO 700 

570 PNT=PNT+100—([CIC]*1.1]—SPEED]:REM CORNERING POINTS 

580 NC=NC+1:REM NUMBER OF CORNERS 

590 CP=96-(PNT/NC):REM CORNERING POSITION 

600 AM=AM+A(C):RB1 AVERAGE NUMBER OF MOVES ALLOWS) 

610 RP=NUM-AM:REM RACING POSITION: YOUR MOVES MINUS AVERAGE MO 
VES 

620 FP=(CPtRP)/2:REM FIELD POSITION IS AVERAGE OF CORNER & RA 

CE POSITIONS 

630 IF FP<1 THEN FP=1 

640 C=C+1 

650 IF C=WW THEN C=1:REM LAP OVER 
660 APP=APP+D[C) 

670 IF LAP*QO=AM THEN 920:REM RACE OVER 
680 ENDPROC 

690 REM ************************* 

700 REM CRASHED 
710 CLS 
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720 PRINT "YOU CORNERS) AT"INT[10*SPEED)/10"KPH" 

730 PRINT "AND THE MAXIMUM SPEB) WAS JUST"C[C] 

740 GOSUB 2340 

750 PRINT "YOU SPIN OFF THE TRACK... 

760 GOSUB 2340 

770 IF CRASH=1 THEN 840 

780 PRINT "YOU'VE LOST 20 SECONDS, BUT YOU'RE ABLE TO REJ 
OIN THE RACE" 

790 NUM=NUM+10sSPES)=INT(2*C(C]/3] 

800 PNT=PNT+50 
810 GOSUB 2340 
820 GOTO 580 

830 REM ************************* 

840 PRINT ".AND CRASH!!!!!" 

850 PRINT "-" 

860 PRINT "YOU ONLY C0MPLETB)"INT(10*DIST]/10"METERS," 

870 PRINT "0R"INT[DIST*100/RR]/100"LAPS AND AT THAT" 

880 PRINT "STAGE WERE IN POSITION"INT[FP] 

890 PRINT "-" 

900 GOTO 1060 

910 REM ************************* 

920 REM RACE OVER 
930 CLS 
940 EFLAG=1 
950 FOR X=1 TO 20 

960 PRINT TAB[X];"WELL DONE, ";A$5"ll" 

970 PRINT TAB[21-X);"WELL DONE, ";A$;"ll" 

980 NEXT X 

990 PRINT "-" 

1000 PRINT "YOU MANAGED TO LAST OUT THE FULL " 

LAP"LAP RACE..." 

1010 PRINT "-" 

1020 GOSUB 2340 

1030 PRINT "YOU FINISHED IN POSITION"INT(FP] 

1040 PRINT "AFTER STARTING IN 6TH POSITION..." 

1050 GOSUB 2340 

1060 PRINT "YOUR AVERAGE SPEED WAS"INT(DIST*180/NUM]/100"KPH" 

1070 GOSUB 2340 

1080 IF RP<1 THEN RP=1 

1090 IF CP<1 THEN CP=1 

1100 PRINT "YOU WERE"INT(ABS(RP)J"TH FASTEST ON STRAIGHTS," 
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1110 PRINT "AND"INT(ABS(CP)]"TH FASTEST ON CORNERS." 

1120 PRINTsPRINT "PRESS 'S' FOR SAME RACE, 'N' FOR NEW RAC 
E, 'E' TO END" 

1130 I$=INKEY$:IF I$<>"S" AM) I$<>"N" AND I$<>"E" THEN 1130 
1140 IF I$="E" THEN END 
1150 GOSUB 2250 
1160 RESTORE 

1170 IF I$="S" THEN GOSUB 1500sLAP=L2APsGOTO 70 
1180 IF I$="N" THEN CLS:GOSUB 1260:G0T0 70 
1190 REM ************************* 

1200 DEFPROCtrack 

1210 INPUT "WHAT IS YOUR NAME, DRIVER";A$ 

1220 PRINT 
1230 FOR X=1 TO 3 

1240 PRINT TAB[4*X]{"0K, GOOD LUCK, ";A$ 

1250 GOSUB 2340:NEXT X 

1260 PRINT it*************************************" 

1270 PRINT "WHICH RACE DO YOU WANT TO TAKE PART IN:" 

1280 PRINT 

1290 PRINT TAB(7){"BRITISH GRAND PRIX 2650MT :1" 

1300 PRINT TAB(7]{"GERMAN GRAND PRIX 1700MT :2" 

1310 PRINT TAB(7) {"ITALIAN GRAM) PRIX 2200MT :3" 

1320 PRINT TAB(7]{"MONACO GRAND PRIX 3100MT :4" 

1330 PRINT 

1340 PRINT TAB(7){"ENTER A NUMBER (1 TO 4)" 

1350 K$=INKEY$ 

1360 IF K$<"1" OR K$>"4" THEN 1350 
1370 GP=VAL[K$) 

1380 PRINT » *************************************** 

1390 PRINT TAB(8){"OK, THE "{ 

1400 IF GP=1 THEN PRINT "BRITISH"; 

1410 IF GP=2 THEN PRINT "GERMAN"{ 

1420 IF GP=3 THEN PRINT "ITALIAN"{ 

1430 IF GP=4 THEN PRINT "MONACO"{ 

1440 PRINT " RACE" 

1450 PRINT "A************************************" 

1460 PRINT:PRINT "OVER HOW MANY LAPS?" 

1470 INPUT LAP:IF LAP<1 THEN 1470 
1480 LAP=INT(LAP+.5):L2AP=LAP 
1490 REM ************************ 

1500 REM BRITISH DATA 
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1510 SPEED =140 
1520 FOR X=1 TO 9 

1530 READ D(X]:REM DISTANCE BETWEEN CORNERS 
1540 NEXT X 

1550 DATA 800,400,250,200,250,300,100,100,250 
1560 FOR X=1 TO 9 

1570 READ C(X):REM RECOMMENDED MAXIMUM CORNERING SPEB) 

1580 NEXT X 

1590 DATA 150,90,175,200,200,90,90,150,150 
1600 FOR X=1 TO 9 

1610 READ A(X):REM AVERAGE NUMBER OF MOVES ALLOWED BETWEEN COR 
NERS 

1620 NEXT X 

1630 DATA 8,4,2,2,2,2,1,1,2 
1640 APP=800:WW=10:00=24:RR=2650 
1650 IF GP=1 THEN ENDPROC 
1660 REM ************************ 

1670 REM GERMAN DATA 
1680 SPE0J=85 
1690 FOR X=1 TO 7 
1700 READ D(X) 

1710 NB<T X 

1720 DATA 600,200,100,150,250,200,200 
1730 FOR X=1 TO 7 
1740 READ C(X] 

1750 NEXT X 

1760 DATA 90,175,120,90,200,200,175 
1770 FOR X=1 TO 7 
1780 READ A(X) 

1790 NEXT X 

1800 DATA 6,2,1,2,2,2,2 

1810 APP=600:WW=8:QQ=17:RR=1700 

1820 IF GP=2 THEN EM)PROC 

1830 REM ************************ 

1840 RBI ITALIAN DATA 
1850 SPEHM08 
1860 FOR X=1 TO 7 
1870 READ D(X) 

1880 NEXT X 

1890 DATA 800,300,100,150,300,350,200 
1900 FOR X=1 TO 7 
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1910 READ C(X) 

1920 NEXT X 

1930 DATA 120,90,90,150,200,120,150 
1940 FOR X=1 TO 7 
1950 READ A(X] 

1960 NEXT X 

1970 DATA 8,3,2,1,3,3,2 

1980 APP=800:WW=8:00=22:RR=2200 

1990 IF GP=3 THEN ENDPROC 

2000 REH ************************* 

2010 REM MONACO DATA 
2020 SPEH>=162 .5 
2030 FOR X=1 TO 14 
2040 READ D(X) 

2050 NEXT X 

2060 DATA 400,100,100,300,400,300,150,200,200,200 
2070 DATA 150,150,200,250 
2080 FOR X=1 TO 14 
2090 READ C(X) 

2100 NEXT X 

2110 DATA 175,150,175,200,120,200,175,90,175,150 
2120 DATA 150,175,120,150 
2130 FOR *=1 TO 14 
2140 READ A(X] 

2150 NEXT X 

2160 DATA 4,1,1,3,4,3,1 ,2,2,2 
2170 DATA 1,2,2,2 
2180 ENDPROC 
2190 RETURN 

2200 REM ************************* 

2210 RBI Initialize 
2220 PRINT RWJ(TIME) 

2230 MODE 6:VDU 19,0,3;0;19,1,1 ;0; 

2240 DIM A(14],C(14),D(14) 

2250 C=1:FP=6sPNT=0sNC=0:CP=0 

2260 AM=0jRP=0sAPP=0 

2270 NUM=0:REM NUMBER OF MOVES 

2280 ENG=100:BRAK=10:TRAV=0:DIST=0 

2290 EFLAG=0 

2300 X=0 

2310 RETURN 

2320 REM ************************* 
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2330 REM DELAY 

2340 FOR 0=1 TO 1000sNEXT 0 

2350 RETURN 
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Flight Simulation 


10 REM FLIGHT SIMULATION - BBC VERSION 
15 REM Engage CAPS LOCK before running 
20 RPT=0 
30 LD=RND(359] 

40 DIM E$(1000) :REM THIS HOLDS FLIGHT RECORD 
50 DIM A$(7],C$(7]:REM THESE ARRAYS HOLD HORIZON AND COMPASS 
OUTPUT 

60 REM ************************** 

70 PROCinitial 

BO IF CRASH=0 THEN GOSUB B20:REM HORIZON/COMPASS 

90 PRXpIcture 

100 IF CRASH=1 THEN END 

110 IF LAND=1 AND UFLAG=1 THEN PRINT "WELL DONE. A PERFECT L 
ANDINGIl":END 

120 IF LAM3=1 AM3 UFLAG=0 THEN PRINT "YOUR WHEELS ARE UP":GO 

SUB 1780:GOTO 90 

130 T=AIRSPEED:STALL=0 

140 X$=INKEY$(0] 

150 IF X$="R" THEN RPT=1:G0T0 70 

160 IF RPT=1 AND E$(CL0CK+1]="" THEN RPT=0:G0T0 140 

170 IF RPT=1 THEN X$=E$(CL0CK+1] 

180 IF X$="» THEN 140 

190 IF CL0CK<999 THEN E$[CL0CK+1)^X$ 

200 IF TAKE0V=1 THEN ELEVATE=INT(ELEVATE+RND(1)*2-RND(1)*3) 
210 IF AIRSPEED<3 THEN 290 

220 IF X$="Q" THEN ELEVATE=ELEVATE+5:EFLAG=5:IF ELEVATE>60 T 
HEN STALL=1 

230 IF X$="A" THEN ELEVATE=ELEVATE-5:EFLAG=-5:IF ELEVATE<-70 
THEN STALL=-1 

240 IF STALLOO THEN GOSUB 1640 

250 IF ALTIMETER<1 THEN 290:REM PREVENTS DRAMATIC TURNS ON T 
HE GROUND 

260 IF X$="Z" THEN WA=WA-.5:ANG=ANG-6:IF WAC-3 THEN WA=-3 
270 IF X$="M" THEN WA=WA+.5:ANG=ANG+6:IF WA>3 THEN WA=3 
280 ANG=INT (ANG+RMJ (1) *2-RfO (1) *2) 

290 IF X$=" " THEN AIRSPEB)=AIRSPEH)+8.5 
300 IF X$="." THEN AIRSPEHJ=AIRSPEBD-7 
310 AIRSPEH)=AIRSPEH)-ELEVATE/5 

320 IF UFLAG=1 THEN AIRSPEH)=AIRSPEH)-1.5:FUEL=FUEL-.5 
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330 IF AIRSPEED<0 THEN AIRSPEH)=0 

340 IF AIRSPEED>400 THEN AIRSPEED=400 

350 IF X$="1" AND UFLAG=0 THEN UFLAG=1:G0T0 370 

360 IF X$="1" AM) UFLA6=1 THEN UFLAG=0 

370 FUEL=FUEL-(ABS(T-AIRSPEED)/10)-3.75 

380 IF FUEL<1 THEN GOSUB 1780 

390 IF TAKEOV=1 THEN 420 

400 IF ELEVATE>10 AND AIRSPEED>45 AND AIRSPEED<60 AND UFLAG= 
1 THEN TAKE0V=1 

410 IF TAKE0V=0 THEN ALTIMETER=0:GOTO 450 

420 IF LAND=0 AND AIRSPEHK30 THEN ELEVATE=ELEVATE-5: ALTIMET 

ER=9*ALTIMETER/10 

430 ALTIMETER=ALTIMETER+INT(((ELEVATE+.1 )*AIRSPEB))+EFLAG*AI 
RSPEHJ/1000)/80 

440 IF ALTIHETER<300 AND TAKE0V=1 THEN ALTIMETER=ALTIMETER+A 
IRSPEBD/30+ELEVATE 

450 IF ALTIMETER<0 THEN GOSUB 1780:REM CRASH 

460 REM CHANGE NEXT TWO LINES TO MAKE IT EASIER (OR EVEN HAR 

DER) TO LAM) 

470 IF ALTIMETER>15 AND AIRSPEH)>20 OR TAKE0V=0 THEN 80 
480 IF ABS(ANG-LD)<13 OR ABS(ANG+360-LD)<13 THEN LAND=1:G0T0 
80 

490 REM ************************** 

500 DEFPROCpIcture 
510 CLS 

520 PRINT " HORIZON";TAB(20];"HEADING" 

530 EV=INT(ELEVATE/10) 

540 IF EV>2 THEN EV=2 
550 IF EV<-2 THEN EV=-2 

560 IF EV<>0 AND TAKE0V=1 AND CRASH=0 THEN GOSUB 1920 

570 PRINT 

580 FOR J=1 TO 7 

590 PRINT ”;A$(J);" s n ;C$(J];" 

600 A$(J)="" 

610 NEXT J 
620 PRINT 

630 DIST=OIST+ABS([COS(ELEVATE))*AIRSPEED)/360 
640 CLOCK=CLOCK+1 

650 PRINT ":RANGE"INT(DIST*10)/10": TIME"INT(CL0CK)/10;":"LD 
660 PRINT 

670 PRINT "sAIRSPEH) :"INT(AIRSPEED) 
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680 PRINT "!";LEFT$[Q$ p INT(AIRSPEED/20]] 

690 PRINT "!ALTIMETER:"INT(ALTIHETER]; 

700 IF ANG<0 THEN PRINT TAB(19]}360+ANG"DEG." 

710 IF ANG>=0 THEN PRINT TAB(19);ANG"DEG." 

720 MR=INT(ALTIMETER/30];IF MR>20 THEN MR=20 
730 PRINT ":"}LEFT$(Q$,MR);">" 

740 PRINT "sFUEL ;"INT(FUEL] 

750 PRINT ": M sLEFT$(Q$,20-INT(FUEiy750]);">" 

760 PRINT "s- 

770 PRINT "sELEVATIONS"ELEVATE": ";:GOSUB 2210;PRINT U$ 

780 IF UFLAG=1 THEN PRINT ":";TAB(5)}"> UNDERCARRIAGE DOWN < 

.11 

790 IF UFLAG=0 THEN PRINT "s";TAB(6];"> UNDERCARRIAGE UP < 

• it 

• 

800 ENDPROC 

810 REM ************************** 

820 REM ASSIGN HORIZON/COMPASS 
830 IF ABS(INT(WA+.5])=3 THEN GOSUB 980 
840 IF ABS(INT(WA+.5))=2 THEN GOSUB 1070 
850 IF ABS(INT(WA+.5])=1 THEN GOSUB 1160 
860 IF INT(WA+.5)=0 THEN GOSUB 1250 

870 REM NEXT TWO LINES USED TO GRADUALLY STRAIGHTEN UP WINGS 

880 IF WA>0 THEN WA=WA-.2 

890 IF WA<0 THEN WA=WA+.2 

900 IF WA>.2 THEN 1350 

910 FOR Z=1 TO 7 

920 M$(8-Z)=A$(Z] 

930 NEXT Z 
940 FOR Z=1 TO 7 
950 A«[Z)=M$[Z) 

960 NEXT Z 

970 GOTO 1350 

980 REM WA=3 OR -3 

990 A$(1 ]=" * " 

1000 A$(2]=" ** » 

1010 A$(3)=" ** " 

1020 A$[4)=" ** » 

1030 A$(5)=" ** " 

1040 A$(6]=" ** " 

1050 A$(7)="** " 

1060 RETURN 
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1070 

1080 

1090 

1100 

1110 

1120 

1130 

1140 

1150 

1160 

1170 

1180 

1190 

1200 

1210 

1220 

1230 

1240 

1250 

1260 

1270 

1280 

1290 

1300 

1310 

1320 

1330 

1340 

1350 

1360 

1370 

1380 

1390 

1400 

1410 

1420 

1430 

1440 

1450 

1460 

1470 


REM WA=2 OR -2 
A$(1]=" " 

A$(2)=" ** " 

A$[3)=" *** " 

A$(4)=" *** " 

A$[5)=” *** " 

A$[6]="*** " 

A$(7)=" " 

RETURN 

REM WA=1 OR -1 

A$(1)=" " 

A$[2]=” " 

A$[3)=” **♦**» 

A$(4]= lf ****** ii 

A$[5]="**** " 

A$ (6]=" " 

A$(7)=" " 

RETURN 
REM WA=0 

A$(1]=" " 

A$(2)= ,f " 

A$[3)= w n 

A$ [ 4] sii**##******#***»i 

A$[5]= n " 

A$[6]= M " 

A$ [7)=” " 

RETURN 

REM ************************** 

REM ASSIGN COMPASS STRINGS 
F2=ANG-F1 

IF F2<0 THEN FA=INT([F2+375J/30] 

IF F2>=0 THEN FA=INT[(F2+15]/30) 

IF FA=12 THEN FA=0 
C$(1)=" .N. » 

IF FA=11 THEN C$(2)=” .©s.. "sGOTO 1450 

IF FA=0 THEN C$(2]= M "sGOTO 1450 

IF FA=1 THEN C$(2]=" "sGOTO 1450 

C$(2)= M . " 

IF FA=10 THEN C$(3)= " .© s .."sGOTO 1480 
IF FA=2 THEN C$(3]= " .. : ©."sGOTO 1480 
C$(3)=" .. s 
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1480 IF FA=9 THEN C$(4]=" W©-X—E" sGOTO 1510 
1490 IF FA=3 THEN C$(4)=" W—X-«E":G0T0 1510 
1500 C$[4]=" W—X—E" 

1510 IF FA=8 THEN C$(5)=" .« s .."sGOTO 1540 

1520 IF FA=4 THEN C$(5)=" .. s e."sGOTO 1540 

1530 .." 

1540 IF FA=7 THEN C$[6]=" "sGOTO 1580 

1550 IF FA=8 THEN C$(6]=" ":G0T0 1580 

1560 IF FA=5 THEN C$(6)=" "sGOTO 1580 

1570 C$[6]=" " 

1580 C$[7]=" .S. " 

1590 IF ANG>360 THEN ANG=ANG-360 
1600 F2=ANG 

1610 IF W>0 THEN W=W-.4 
1620 IF W<0 THEN W=W+.4 
1630 RETURN 
1640 REM STALL/FALL 
1650 IF STALL=-1 THEN 1710 
1660 FOR J=1 TO 10 

1670 PRINT TAB(J]{"YOU HAVE STALLED!" 

1680 NEXT J 

1690 AIRSPEED=AIRSPEED/4 

1700 RETURN 

1710 FOR J=1 TO 10 

1720 PRINT TAB(J){"UNCONTROLLED DIVE!I" 

1730 PRINT TAB(21-J];"PULL UP!!" 

1740 NEXT J 

1750 ALTIMETER=4*ALTIMETER/5 
1760 RETURN 

1770 RBI ************************** 

1780 REM CRASH 
1790 CRASH=1 
1800 ALTIMETERS 

1810 *C R** A ** S* H* 11*":REM 25 CHARACTERS LONG 

1820 FOR J=1 TO 20 

1830 PRINT TAB(J]{"CRASH!" 

1840 PRINT TAB121-J]{"CRASH!" 

1850 NB<T J 
1860 FOR J=1 TO 7 
1870 G=INT(RND(1 )*11 )+1 
1880 A$(J]=MID$(M$ f G,14) 
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1890 NEXT J 
1900 RETURN 

1910 REM ************************** 

1920 REM ADJUST HORIZON 

1930 G$=" ":REM 14 SPACES 

1940 ON EV+3 60SUB 1960 f 2020 f 2070 f 2080,2140 

1950 RETURN 

1960 REM EV=-2 

1970 FOR J=1 TO 4 

1980 A$[J]=A$(J+3] 

1990 NEXT J 

2000 A$(5]=G$sA$(6]=G$sA$(7]=G$ 

2010 RETURN 
2020 REM EV=-1 
2030 FOR J=1 TO 6 
2040 A$(J]=A$(J+1] 

2050 NEXT J 
2060 A$(7)=G$ 

2070 RETURN:REM EV=0 
2080 REM EV=1 
2090 FOR J=6 TO 1 STEP -1 
2100 A$(J+1)=A$(J] 

2110 NEXT J 
2120 A$(1 ]=G$ 

2130 RETURN 

2140 REM EV=2 

2150 FOR J=4 TO 1 STEP -1 

2160 A$(J+3)=A$(J] 

2170 NEXT J 

2180 A$(1)=G$:A$(2]=G$:A$(3]=G$ 

2190 RETURN 

2200 REM ************************** 

2210 REM INPUT INTO COMMAND NAME 
2220 U$="-» 

2230 IF X$=" " THEN U$="THR0TTLE ON" 

2240 IF X$=".» THEN U$="THR0TTLE OFF" 

2250 IF X$=»Q" AND ALTIMETERS THEN U$="CLIMB" 
2260 IF X$="Q" AND ALTIMETER=0 THEN U$="N0SE UP" 
2270 IF X$="A" THEN U$="NOSE DOWN" 

2280 IF X$="Z" THEN U$="BANK LEFT" 

2290 IF X$=»M" THEN U$="BANK RIGHT" 
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2300 RETURN 

2310 REM ************************** 

2320 DEFPROCinitlal 
2330 PRINT RND(TIME) 

2340 MODE 7 

2350 Q$="-"sREM 21 CHARACTERS IN STRING 

2360 UFLAG=1:REM UNDERCARRIAGE - 1 - DOWN, 0 - UP 
2370 EFLA6=0:REM CLIMB RATE 
2380 ANG=0:TAKE0V=0:LAND=0 
2390 AIRSPEB)=0 

2400 DIST=0;REM DISTANCE COVERB) 'RANGE' 

2410 ALTIMETER=0 

2420 ELEVATE=0:REM ANGLE OF ELEVATION 

2430 WA=0:REM 'WING ANGLE; USB) IN HORIZON PRINTOUT 

2440 FUEL=750:CRASH=0:F2=0:FI=0:REM FOR DIRECTION CHANGE/COM 

PASS ROUTINE 

2450 CL0CK=0:REM TIME 

2460 X$="" 

2470 EfOPROC 

2480 REM ALL TAKE-OFFS ARE INTO THE NORTH (SPEED 45-60; ELEV 
ATI ON >10] 

2490 REM LANDING DIRECTION SHOWN BELOW COMPASS 

2500 REM YOU MUST BE WITHIN 12 DEGREES OF THIS FOR A SUCCESS 

FUL UNDING 
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Spectrum+/Spectrum Listings 

Space Landing 


10 REM SPACE LANDING SIMULATION 
I 

15 REM SPECTRUM VERSION 
20 RANDOMIZEsINK 7sPAPER IsBORDE 
R 7 

30 REM ************************* 
**** 

40 REM SET STARTING VALUES 
50 FUEL=200+INT(RND*40) 

60 VELOCITY=INT(RND*20]-6 
70 HEIGHT=500-INT(RND*10] 

80 CLS 

90 PRINT " FUEL"}TAB(12]}" VELOC 
ITY"}TAB(24];" HEIGHT" 

100 RBI ************************ 
***** 

110 RBI MAJOR CYCLE 
120 GOSUB 430 

130 IF FUEL<=0 THEN LET FUEL=0sL 
ET THRUST=0:G0T0 170 
140 LET A$=ItKEY$ 

150 IF A$<"0" OR A$>"9" THEN GOT 
0 140 

160 LET THRUST=VAL(A$)+.1 
170 LET FUEL=FUEL-THRUST 
180 LET FLAG=THRUST-2 
190 LET THRUST=0 

200 LET HEIGHT=HEIGHT+VELOCITY+F 
LAG/4 

210 LET VELOCITY=VELOCITY+FLAG 
220 IF HEIGHT<=10 THEN GOTO 240 
230 IF HEI GHT >10 THEN GOTO 120 
240 IF VELOCITY>-9 AM) VEL0CITY< 
5 THEN GOTO 290 
250 GOSUB 410 

260 CLSsPRINT FLASH 1}" YOU 


HAVE CRASHED INTO THE S 

URFACE..." 

270 IF HEIGHT>0 THEN LET HEIGHT= 

-HEIGHT 

280 GOTO 320 

290 CLSsPRINT BRIGHT 1;" YOU H 
AVE LANDED SAFELY I " 

300 PRINT "YOUR SKILL RATING IS" 
;INT(-1000*FUEI/ (VELOCITY-HEIGHT 
)) 

310 LET HEI GHT=0 
320 GOSUB 410 

330 PRINT "FINAL INSTRUMENT READ 
INGS WERE:" 

340 PRINT " FUEL"5TAB(12){" VELO 
CITY";TAB(24)5" HEIGHT" 

350 GOSUB 430 
360 GOSUB 410 

370 IF HEIGHT>=0 THEN STOP 
3B0 IF HEIGHT<0 THEN PRINT "NEW 
CRATER ON MOON";INT(ABS(100*(HEI 
GHT+.2J/3]]/100{"METRES DEEP I" 
390 PRINT "YOUR SKILL RATING IS 
"I NT (100*FUEL/ (VELXITY-HEI GHT)) 

400 STOP 

410 PRINT "- 


420 RETURN 

430 PRINT INT(1D0*FUEL)/100; 

440 PRINT TAB[12];-INT(100*VELX 
ITY1/100; 

450 IF HEIGHT>=0 THEN PRINT TAB( 
24) }INT1100*HEIGHT)/100 
460 IF HEIGHT<0 THEN PRINT 
470 RETURN 
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Monte Carlo 


10 REM MONTE CARLO DEMONSTRATION 
15 REM SPECTRUM VERSION 
20 GOSUB 370: RBI INITIALIZE 
30 REM **************** 

40 REM MAJOR CYCLE 

50 GOSUB 100:REM PRINT 

60 IF P=B> AND Q=EQ THEN PRINTsP 

RINT "DEMONSTRATION OVER":BEEP . 

4,10:ST0P 

70 GOSUB 230:REM GENERATE MOVE 
80 GOTO 50 

90 REM **************** 

100 REM PRINTOUT 
110 LET A$[P f Q]="0" 

120 LET M=M+1 
130 CLS:PRINT:PRINT 
140 PRINT "MOVE: ";M 
150 FOR X=1 TO 10 
160 FOR Y=1 TO 10 
170 PRINT A$(X f Y);" "; 

180 NEXT Y 
190 PRINT 
200 NEXT X 
210 RETURN 

220 REM **************** 

230 REM GENERATE MOVE 
240 LET A$[P f Q]=".» 

250 LET G=0 

260 LET T=INT(RND*4]+1 

270 GOSUB 300+lT*10] 

280 IF G=0 THEN GOTO 260 
290 IF G=1 AND RND>.5 THEN GOTO 
260 

300 RETURN 

310 IF P>1 THEN LET P=P-1: LET G= 
G+1: RETURN 

320 IF P<10 THEN LET P=P+1:LET G 
=G+1: RETURN 

330 IF Q>1 THEN LET Q=CM:LET G= 


G+1:RETURN 

340 IF Q<10 THEN LET 0=0+1:LET G 
=G+1: RETURN 
350 RETURN 

360 REM **************** 

370 REM INITIALIZE 

380 PAPER 1:INK 7:BORDER 7:CLS 

390 RANDOMIZE 

400 DIM A$[10 f 10) 

410 FOR X=1 TO 10 
420 FOR Y=1 TO 10 
430 LET A$[X,Y]="." 

440 NEXT Y 
450 NEXT X 

460 PRINT:PRINT:LET M=0 
470 PRINT "ENTER FIRST START CO¬ 
ORDINATE [LESS THAN 10]» 

480 INPUT P 

490 IF P<1 OR PMO THEN GOTO 480 

500 PRINT "ENTER SECOND START CO 

-ORDINATE (LESS THAN 10)" 

510 INPUT Q 

520 IF Q<1 OR Q>10 THEN GOTO 510 
530 PRINT:PRINT 

540 PRINT "ENTER FIRST END CO-OR 
DINATE (LESS THAN 10)" 

550 INPUT BP 

560 IF EP=P OR EP<1 OR EP>10 THE 
N GOTO 550 

570 PRINT "ENTER SECOND END CO-O 
RDINATE (LESS THAN 10)" 

580 INPUT EQ 

590 IF EQ=Q OR EQ<1 OR EQ>10 THE 

N GOTO 580 

600 LET A$(P f Q]="0" 

610 LET A$(EP f EQ]="X" 

620 RETURN 
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Simultaneous Equations 


10 RBI SIMULTANEOUS EQUATIONS 
15 REM SPECTRUM VERSION 
20 CLS 

30 RANDOMIZE: INK 7: PAPER 1: BO 
RDER 7 
40 LET HS=0 
50 LET FD=RND 

60 PRINTsPRINT "DECAY FACTOR IS 
";FD 

70 60SUB 550 
80 CLS 

90 PRINTsPRINT 

100 PRINT "ENTER NUMBER OF CELL 
X TO START [LESS T 

HAN 40J" 110 INPUT CP:IF 

CP<1 OR CP>39 THEN GOTO 110 
110 INPUT CP:IF CP<1 OR CP>39 TH 
EN 110 

120 PRINTsPRINT 

130 PRINT "WE HAVE ";CP;" X CELL 
S" 

140 PRINTsPRINT 

150 PRINT "ENTER NUMBER OF CELL 
Y TO START [LESS T 

HAN 40)" 

160 INPUT EPsIF ff><1 OR EP>39 TH 
EN GOTO 160 

170 CLSSPRINTSPRINT "PLEASE STAN 
D BY..."sBEEP .07,1 Os BEEP .07,15 
180 GOSUB 550:CLS 
190 LET DA=1 

200 IF CP>EP/FD THEN LET CP=BVF 
D 

210 PRINT "-" 

220 PRINT "TIME ELAPSED: ";DA 
230 PRINT INT(CP);" CELL X" 

240 PRINT INT(EP);" CELL Y" 

250 RBI ************************ 
*** 


260 REM MAJOR CYCLE 
270 GOSUB 550 
280 LET DA=DA+1 

290 PRINT "-" 

300 PRINT "TIME ELAPSED: ";DA 
310 IF CP>EP/FD THEN LET CP=EP/F 
D 

320 REM EQUATIONS FOLLOW; MODIFY 
PARTS OF THEM TO SEE WH 

AT HAPPENS 

330 LET CP=CP+[[8*CP-CP*EP/3)*FD 

) 

340 LET EP=EP+( (4*EP-B>*CP)*.01) 

350 PRINT INT[CP);» CELL X" 

360 PRINT INT(EP);" CELL Y" 

370 IF EP<2 OR CP<2 THEN GOTO 41 
0 

380 GOSUB 550 
390 GOTO 280 

400 RBI ************************ 

410 IF DA>HS THEN LET HS=DA 
420 PRINTsPRINT 

430 PRINT "YOUR CELL CLASH SIMUL 
ATION SURVIVED" 

440 PRINT "FOR ";DA;" TIME PERIO 
DS." 

450 PRINT "- 


460 PRINT "THE BEST SURVIVAL TIM 
E SO FAR IS ";HS 
470 GOSUB 550 

480 PRINT "- 

it 

490 PRINT "DO YOU WANT A NEW RUN 
(Y OR N)?" 

500 LET A$=INKEY$ 

510 IF A$<>"Y" AND A$<>"N" THEN 
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GOTO 500 

520 IF A$= ,, Y” THEN CLSsGOTO 60 
530 PRINT 11 OK":PRINTsPRINT:STOP 

540 RBI ************************ 
*** 

550 FOR J=1 TO 800:NEXT J 
560 RETURN 
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Robot Logo 

0 REM 

100 REM ROBOT LOGO 
105 REM SPECTRUM VERSION 
110 GOSUB 1730:REM INITIALIZE 
120 GOTO 490 

125 REM NOTE THAT COMMANDS SHOUL 
D BE ENTERED AS DATA STATEMENTS 
AND ENCLOSED WITHIN SPEECH MARKS 

130 REM ************************ 
**** 

140 REM 
150 REM 
160 REM 
170 REM 
180 REM 
190 REM 
200 REM 
210 REM 
220 REM 
230 REM 
240 REM 
250 REM 
260 REM 
270 REM 
280 REM 
290 REM 
300 REM 
310 REM 
320 DATA 

330 REM ************************ 
**** 

340 REM INT UX f AX 

350 LET UX=INT(UX+.5):LET AX=INT 

(AX+.5) 

360 RETURN 

370 REM ************************ 
**** 

380 REM PRINT OUT 


390 CLS 

400 PRINT ,, STEP ,, PSN M > ";A$(PSN) 
SPRINT 

410 FOR J=1 TO DEPTH 
420 FOR K=1 TO BREADTH 
430 PRINT Z$(J y K]; 

440 NEXT K 
450 PRINT 
460 NEXT J 
470 RETURN 

480 REM ************************ 
**** 

490 REM READ PROGRAM 
495 LET N$= M,, sRESTORE: LET COUNT= 
0 

500 LET COUNT=C0UNT+1 
510 READ A$(COUNT) 

520 IF A$( COUNT,1 )= ,, * n THEN GOTO 
550 

530 IF COUNT<20 THEN GOTO 500 

540 REM ************************ 
**** 

550 REM EXECUTE PROGRAM 

560 LET PSN=0:REM PROGRAM STEP N 

UMBER 

570 LET PSN=PSN+1 

580 IF PSN=21 THEN GOTO 580sREM 

END 

600 LET M$=A$(PSN, TO 12) 

610 IF M$(1)="*” THEN BEEP .01,1 
NT(RND*60)-25:GOTO 61 OsREM END 
620 LET N$=M$( TO 2) 

630 IF N$="ST" THEN GOTO 560sREM 
START AGAIN 

640 IF N$="PR n THEN GOSUB 380sRE 
M PRINTOUT 

650 IF N$="FO n THEN GOSUB 780 
660 IF N$="BA n THEN GOSUB 940 
670 IF N$="TU" THEN GOSUB 1000 
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680 IF N$= ,, H0" THEN GOSUB 1160 
690 IF N$= ,, CL" THEN GOSUB 1220 
700 IF N$= ,, GO" THEN GOSUB 1260 
710 IF N$= ,, RA" THEN GOSUB 1400 
720 IF N$="RE n THEN GOSUB 1460 
730 IF N$= f, EN" THEN GOSUB 1530 
740 IF N$="FA" THEN GOSUB 1580 
760 GOTO 570 

770 REM ************************ 
**** 

780 REM FORWARD 

790 LET M$=M$(4 TO ) 

800 IF C0DE(M$]=87 THEN LET M$=M 
$(6 TO ] 

810 LET F$="F" 

820 LET NUM=VAL[M$) 

830 FOR E=1 TO NUM 
840 IF UX<1 OR UX>DEPTH THEN GOT 
0 880 

850 IF AX<1 OR AX>BREADTH THEN G 
OTO 880 

860 LET Z$[UX,AX)=T$ 

880 IF F$="F" THEN LET UX=UX+UP: 
LET AX=AX+AC*2 

890 IF F$="B" THEN LET UX=UX-UP: 

LET AX=AX-AC*2 

900 GOSUB 340 

910 NEXT E 

920 RETURN 

930 REM ************************ 
**** 

940 REM BACK 

950 LET M$=M$(4 TO J 

960 IF COOE(M$]=75 THEN LET M$=M 

$(3 TO ) 

970 LET F$="B" 

980 GOTO 820 

990 REM ************************ 
**** 

1000 REM TURN 

1010 LET M$=M$(4 TO ] 


1020 IF C0DE(M$]=78 THEN LET M$= 
M$(3 TO] 

1030 LET NUM=VAL(M$) 

1040 LET Y=INT[[NUM+17.5)/45] 
1050 IF Y=0 OR Y=8 THEN RETURN 
1060 FOR J=1 TO Y 
1070 IF UP=-1 AND AC=0 THEN LET 
AC=1: GOTO 1130 

1080 IF UP=0 AND AC=1 THEN LET U 
P=1 :G0T0 1130 

1090 IF UP=1 AND AC=0 THEN LET A 
C=-1 :GOTO 1130 

1100 IF UP=0 AND AC=-1 THEN LET 
UP=-1: GOTO 1130 

1110 IF UP=-1 AND AC=-1 OR UP=1 
AND AC=1 THEN LET AC=0:GOT0 1130 

1120 IF UP=-1 AND AC=1 OR UP=1 A 
ND AC=-1 THEN LET UP=0 
1130 NEXT J 
1140 RETURN 

1150 REM *********************** 
***** 

1160 REM HOME 

1170 LET AX=INT[(BREADTH+.51/2) 
1180 LET UX=INT([DEPTH+.5)/2] 
1190 LET UP=-1:LET AC=0:REM FACE 
S UP 

1200 RETURN 

1210 REM *********************** 
***** 

1220 REM CLEAN 

1230 GOSUB 1870 
1240 RETURN 

1250 REM *********************** 
***** 

1260 REM GO X,Y 

1270 LET P=0 
1280 LET P=P+1 

1290 IF M$[P]="," THEN GOTO 1320 
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1300 IF P<LEN(M$) THEN GOTO 1280 

1310 RETURN:REM ERROR 
1320 LET UX=VAL(M$(4 TO P-1)] 
1330 LET AX=VAL(M$(P+1 TO ]) 

1340 GOSUB 340 

1350 IF UX<1 OR UX>OEPTH THEN GO 
TO 1380 

1360 IF AC<1 OR AOBREADTH THEN 

GOTO 1380 

1370 Z$(UX f AX)=R$ 

1380 RETURN 

1390 REM *********************** 
***** 

1400 REM RANDOM 

1410 LET AX=INT(RND*BREADTH):IF 

AX<1 THEN LET AX=1 

1420 LET UX=INT(RND*DEPTH]:IF UX 

<1 THEN LET UX=1 

1430 LET Z$(UX f AX)=R$ 

1440 RETURN 

1450 REM *********************** 
***** 


1600 IF C00E(M$)=69 THEN LET M$= 
M$(3 TO ] 

1610 LET NUM=VAL(M$) 

1620 LET Y=INT((NUM+17 B 5]/45)*45 


1630 IF Y=0 OR Y=360 THEN LET UP 
=-1:LET AC=0 

1640 IF Y=45 THEN LET UP=-1:LET 
AC=1 

1650 IF Y=90 THEN LET UP=0:LET A 
C=1 

1660 IF Y=135 THEN LET UP=1:LET 
AC=1 

1670 IF Y=180 THEN LET UP=1:LET 
AC=0 

1680 IF Y=225 THEN LET UP=1:LET 
AC=-1 

1690 IF Y=270 THEN LET UP=0:LET 
AC=-1 

1700 IF Y=315 THEN LET UP=-1:LET 
AC=-1 


1710 RETURN 

1720 REM *********************** 


1460 REM REPEAT 

1470 LET M$=M$[4 TO) 

1480 IF C0DE(M$]=69 THEN LET M$= 
M$(5 TO] 

1490 LET RECOUNT=VAL(M$) 

1500 LET MARKER=PSN 
1510 RETURN 

1520 REM *********************** 
***** 

1530 REM END REPEAT 

1540 LET REC0UNT=REC0UNT-1 
1550 IF RECOUNT>0 THEN LET PSN=M 
ARKER 

1560 RETURN 

1570 REM *********************** 
***** 


***** 

1730 REM INITIALIZE 

1740 PAPER 1:INK 7:BORDER 7:CLS 

1750 RANDOMIZE 

1770 LET BREADTH=32:REM CHARACTE 
RS ACROSS 

1780 LET DEPTH=22:REM CHARACTERS 
DOWN 

1790 LET BREADTH=BREADTH-1 
1800 LET DEPTH=DEPTH-3 
1810 LET UP=-1:LET AC=0:REM STAR 
TS FACING UP 

1820 DIM A$(20 y 12]:REM FOR ROBOT 
PROGRAM 

1830 DIM Z$(DEPTH f BREADTH):REM D 
ISPLAY 


1580 REM FACE 1840 LET T$="X":LET R$="X":REM P 

1590 LET M$=M$(4 TO ) UT SYMBOL HERE YOU WANT 
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TO USE FOR ROBOT'S TRAIL 

1850 LET AX=G:LET UX=Q 

1860 REM FILL ARRAY WITH SPACES 

1870 FOR J=1 TO DEPTH 

1880 FOR K=1 TO BREADTH 

1890 LET Z$[J f K)=" " 

1900 NEXT K 
1910 NEXT J 
1915 CLS 
1920 RETURN 
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Point Duty Robot 


100 REM POINT-DUTY ROBOT 
105 REM SPECTRUM VERSION 
110 GOSUB 1730:REM INITIALIZE 
120 GOTO 490 

125 REM NOTE THAT COMMANDS SHOUL 
D BE ENTERED AS DATA STATEMENTS 
AND ENCLOSED WITHIN SPEECH MARK 
S 

130 REM ************************ 
**** 

140 REM 
150 REM 
160 REM 
170 REM 
180 REM 
190 REM 
200 REM 
210 REM 
220 REM 
230 REM 
240 REM 
250 REM 
260 REM 
270 REM 
280 REM 
290 REM 
300 REM 
310 REM 
320 DATA 

330 REM ************************ 
**** 

340 REM INT UX,AX 

350 LET UX=INT(UX+.5]:LET AX=INT 

(AX+.5) 

360 RETURN 

480 REM ************************ 
**** 

490 REM READ PROGRAM 

495 LET N$="":RESTORE:LET COUNT= 

0 


500 LET COUNT=COUNT+1 
510 READ A$(COUNT] 

520 IF A$[COUNT]="*" THEN GOTO 5 
50 

530 IF COUNT<20 THEN GOTO 500 

540 REM ************************ 
**** 

550 REM EXECUTE PROGRAM 

560 LET PSN=0:REM PROGRAM STEP N 

UMBER 

570 LET PSN=PSN+1 

580 IF PSN=21 THEN GOTO 580:REM 

END 

600 LET M$=A$(PSN, TO 12] 

610 IF M$(1 )="*" THEN BEEP .01,1 
NT (RND*60]-25:G0T0 610:REM END 
620 LET N$=M$( TO 2) 

630 IF N$="ST" THEN GOTO 560:REM 
START AGAIN 

650 IF N$="FO" THEN GOSUB 780 
660 IF N$="BA'' THEN GOSUB 940 
670 IF N$="TU" THEN GOSUB 1000 
680 IF N$="HO" THEN GOSUB 1160 
700 IF N$="GO" THEN GOSUB 1260 
710 IF N$="RA" THEN GOSUB 1400 
720 IF N$="RE" THEN GOSUB 1460 
730 IF N$="EN" THEN GOSUB 1530 
740 IF N$="FA" THEN GOSUB 1580 
760 GOTO 570 

770 REM ************************ 
**** 

780 REM FORWARD 

790 LET M$=M$( TO 4] 

800 IF C0DE(M$)=87 THEN LET M$=M 
$(6 TO ] 

810 LET F$= M F" 

820 LET NUM=VAL(M$) 

830 FOR E=1 TO NUM 

840 IF UX<1 OR IDODEPTH THEN GOT 
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0 880 

850 IF AX<1 OR AX>BREADTH THEN G 
OTO 880 

860 PLOT AX f UX 

880 IF F$="F" THEN LET UX=UX-OVs 
LET AX=AX+HB 

890 IF F$= n B M THEN LET UX=UX+UP: 

LET AX=AX-AC 

900 GOSUB 340 

910 NEXT E 

920 RETURN 

930 REM ************************ 
**** 

940 REM BACK 

950 LET M$=M$(4 TO ) 

960 IF C0DE(M$]=75 THEN LET M$=M 
ID$(3 TO ) 

970 LET F$="B" 

980 GOTO 820 

990 REM ************************ 
**** 

1000 REM TURN 

1010 LET M$=M$(4 TO ) 

1020 IF C0DE[M$]=78 THEN LET M$= 
MID$(3 TO ] 

1030 NUM=VAL(M$] 

1040 LET Y=INT((NUM+11«25)/22.5) 

1050 IF Y=0 OR Y=16 THEN RETURN 
1060 FOR J=1 TO Y 
1065 IF UP=-2 AND AC=0 OR UP=2 A 
ND AC=2 THEN LET AC=1:GOTO 1130 
1070 IF UP=-2 AND AC=1 THEN LET 
AC=2:G0T0 1130 

1075 IF (UP=-2 AND AC=2) OR (UP= 
0 AND AC=-2) THEN LET UP=-1:G0T0 
1130 

1080 IF [UP=-1 AND AC=2) OR (UP= 
1 AND AC=-2) THEN LET UP=0:GOTO 
1130 

1085 IF [UP=0 AND AC=2] OR (UP=2 


AND AC=-2) THEN LET UP=1:G0T0 1 
130 

1090 IF UP=1 AND AC=2 THEN LET U 
P=2:GOTO 1130 

1095 IF UP=2 AND AC=1 THEN LET A 
C=0:G0T0 1130 

1100 IF UP=2 AND AC=0 THEN LET A 
C=-1: GOTO 1130 

1105 IF UP=2 AND AC=-1 THEN LET 
AC=-2:G0T0 1130 

1110 IF UP=-1 AND AC=-2 THEN LET 
UP=-2:G0T0 1130 

1115 IF UP=-2 AND AC=-2 THEN LET 
AC=-1 :GOTO 1130 

1120 IF UP=-2 AND AC=-1 THEN LET 
AC=0 

1130 NEXT J 

1135 LET HB=AC:LET DV=UP 
1140 RETURN 

1150 RBI *********************** 
***** 

1160 REM HOME 

1170 LET AX=INT[(BREADTH+.5)/2) 
1180 LET UX=INT((DEPTH+.5]/2) 
1190 LET UP=-2;LET AC=0:REM FACE 
S UP 

1200 RETURN 

1210 REM *********************** 

1220 REM CLEAN 

1230 GOSUB 1870 
1240 RETURN 

1250 REM *********************** 
***** 

1260 REM GO X f Y 

1270 LET P=0 
1280 LET P=P+1 

1290 IF M$(P)= M f H THEN GOTO 132 
0 

1300 IF P<LEN[M$) THEN GOTO 1280 
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1310 RETURN:REM ERROR 
1320 LET UX=VAL(M$[4 TO P-1)) 
1330 LET AX=VAL[M${P+1 TO JJ 
1340 GOSUB 340 

1350 IF UX<1 OR LDODEPTH THEN GO 
TO 1380 

1360 IF AC<1 OR AOBREADTH THEN 

GOTO 1380 

1370 PLOT AX,UX 

1380 RETURN 

1390 REM *********************** 
***** 

1400 REM RANDOM 

1410 LET AX=INT(RND*BREADTH]:IF 

AX<1 THEN LET AX=1 

1420 LET UX=INT(RND*DEPTH]:IF UX 

<1 THEN LET UX=1 

1430 PLOT AX,UX 

1440 RETURN 

1450 REM *********************** 
***** 

1460 REM REPEAT 

1470 LET M$=MID$(4 TO ] 

1480 IF C0DE(M$)=69 THEN LET M$= 
MID$(5 TO ) 

1490 LET RECOUNT=VAL(M$] 

1500 LET MARKER=PSN 
1510 RETURN 

1520 REM *********************** 
***** 

1530 REM END REPEAT 

1540 LET REC0UNT=REC0UNT-1 
1550 IF RECOUNTS THEN LET PSN=M 
ARKER 

1560 RETURN 

1570 REM *********************** 
***** 

1580 REM FACE 

1590 LET M$=MID$(4 TO ] 

1600 IF C0DE(M$]=69 THEN LET M$= 
M$[3 TO ] 


1610 LET NUM=VAL(M$] 

1620 LET Y=INT((NUM+11.25J/22.5] 
*22.5 

1630 IF Y=0 OR Y=360 THEN LET UP 
=-2:AC=0 

1635 IF Y=22.5 THEN LET UP=-2:AC 
=1 

1640 IF Y=45 THEN LET UP=-2:AC=2 

1645 IF Y=67.5 THEN LET UP=-1:AC 
=2 

1650 IF Y=90 THEN LET UP=0:AC=2 
1655 IF Y=112.5 THEN LET UP«1:AC 
=2 

1660 IF Y=135 THEN LET UP-2:AC=2 

1665 IF Y=157.5 THEN LET UP=2iAC 
=1 

1670 IF Y=180 THEN LET UP=2:AC=0 

1675 IF Y=202.5 THEN LET UP=2:AC 
=-1 

1680 IF Y=225 THEN LET UP=2:AC=- 
2 

1685 IF Y=247.5 THEN LET UP=1jAC 
=-2 

1690 IF Y*27Q THEN LET UP=OiAG=s~ 
2 

1695 IF Y»882.5 THEN UP=-1|AG==8 

1700 IF Y-315 THEN LET UP=-BiAB* 
-2 

1705 IF Y=337 t 5 THEN LET UP=-=g|A 
C=-1 

1710 RETURN 

1720 REM ****M**********t*MO* 
***** 

1730 REM INITIALIZE 
1735 LET HB=QlLET DV=0 
1740 PAPER 1 3 INK 71BORDER 7:CLS 
1750 RANDOMIZE 
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1770 LET BREADTH=255 sREM CHARACT 
ERS ACROSS 

1780 LET DEPTH=170:REM CHARACTER 
S DOWN 

1790 LET BREADTH=BREADTH-1 
1800 LET DEPTH=0EPTH-3 
1810 LET UP=-2:LET AC=OsREM STAR 
TS FACING UP 

1820 DIM A$[20,12]sREM FOR ROBOT 
PROGRAM 
1910 CLS 
1920 RETURN 
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Connect Four 


10 REM CONNECT FOUR 

15 REM SPECTRUM VERSION 

20 RBI A. W. PEARSON 

30 PAPER 7: INK 0: BORDER 7: 

CLS 

40 PRINT 
50 PRINT 

60 PRINT "CONNECT FOUR" 

70 PRINT 

80 PRINT "ENTER YOUR MOVE AS A N 
UMBER" 

90 PRINT "BETWEEN 1 AND B, 0 FOR 
NEW GAME" 

100 FOR F=1 TO 500: NEXT F 
110 DIM A$(10 t 10) :DIM B(10,2) 

120 LET FLAG=0 

130 REM CHANGE NEXT LINE FOR YOU 
R OWN SYMBOLS IF YOU WISH 
140 C$="M":H$="o":REM M FOR MACH 
INEI 

150 FOR F=1 TO 8 
160 LET B(F,1)=6 
170 NEXT F 
180 FOR F=1 TO 6 
190 FOR G=1 TO 8 
200 LET A$(F,G)="." 

210 NEXT G 
220 NEXT F 

230 RBI ************************ 
* 

240 REM ACCEPT HUMAN MOVE 
250 GOSUB 430 

260 PRINTsPRINTsPRINT "YOUR MOVE 

n 

■ ■ ■ 

270 INPUT A 

280 IF A=0 THEN RUN 

290 IF A<1 OR A>8 THEN GOTO 270 

300 LET L=0:LET A=A+1 

310 IF A$(L+1,A)<>"." OR L=6 THE 


N GOTO 340 
320 LET L=L+1 
330 GOTO 310 

340 IF L=0 THEN GOTO 270 
350 LET A$(L f A)=H$ 

360 LET B(A f 1]=B(A f 1)-1 
370 GOSUB 430 
380 GOSUB 560 
390 GOSUB 430 
400 GOTO 260 

410 REM ************************ 
* 

420 REM PRINT BOARD 
425 BEEP .07,15 
430 CLS 

435 PRINT:PRINTSPRINT TAB(IO); 
440 FOR F=1 TO 6 
450 FOR G=1 TO 8 
460 PRINT A$(F,G]; 

470 NEXT G 

480 PRINT TAB(10]; 

490 NEXT F 

500 PRINTsPRINT INK OsTAB (10); 
"12345678" 

510 PRINT 

520 IF FLAG=1 THEN PRINT "I HAVE 
WON": BEEP 1,-15: STOP 
530 RETURN 

540 RBI ************************ 
* 

550 REM SPECTRUM MOVES 
560 PRINT "MY MOVE..." 

570 LET MV=0 
580 FOR F=1 TO 8 
590 LET B(F,2)=0 
600 NEXT F 
610 FOR F=1 TO 8 
620 FOR X=-1 TO 1 
630 FOR Y=-1 TO 1 
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640 IF B[F f 1 )=0 THEN GOTO 680 
650 IF A$(B(F t 1)+X f F+Y]=”" OR A$ 
(B(F y 1]+X f F+Y)=”■” THEN GOTO 680 

660 IF A$(B[F f 1)+X f F+Y)=H$ THEN 
GOSUB 810 

670 IF A$(B[F y 1)+X y F+Y)=C$ THEN 

GOSUB 910 

680 NEXT Y 

690 NEXT X 

700 NEXT F 

710 LET P=0 

720 FOR F=4 TO 8 

730 IF B[F y 2)>P THEN LET P=B(F y 2 
JsLET N=F 
740 NEXT F 

750 LET A$(B(N P 1) y N)=C$ 

760 LET B[N f 1)=B(N f 1)-1 
770 LET N=0 
780 LET P=0 
790 RETURN 

800 REM ************************ 
* 

810 LET MV=2 
820 LET M1=*1V 


830 IF A$(B(F f 1)+(X*2) f F+(Y*2))= 
H$ THEN LET MV=MV+10 
840 IF A$(B[F y 1)-X y F-Y)=H$ THEN 
LET MV=MV+20 

850 IF MVOMI+IO THEN GOTO 870 
860 IF A$(B(F v 1 )+(X*3) y F+(Y*3))= 
H$ THEN LET MV=MV+1000 
870 LET B(F f 2)=B(F f 2)+MV 
880 LET Ml=0 
890 RETURN 

900 REM ************************ 
* 

910 LET MV=2 
920 LET Ml=MV 

930 IF A$(B[F y 1)+(X*2] y F+[Y*2))= 
C$ THEN LET MV=MV+9 
940 IF A$(B(F y 1)-X y F-Y]=C$ THEN 
LET MV=MV+20 

950 IF MVOM1+9 THEN GOTO 970 
960 IF A$(B(F f 1)+(X*3) y F+(Y*3))= 
C$ THEN LET MV=MV+2000sLET FLAG= 
1 

970 LET B(F y 2)=B(F f 2)+MV 
980 RETURN 
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Washington D.C 


10 REM WASHINGTON D.C. 

15 REM SPECTRUM VERSION 
20 GOSUB 1160:REM INITIALIZE 

30 REM ************************* 
** 

40 REM MAJOR CYCLE 
50 LET P=INT(P+(P*273/ML)] 

60 GOSUB 160:REM PRINTOUT 
70 GOSUB 510:REM CALCULATE 
80 RBI NOW CHECK END GAME 
90 GOSUB 710: RBI STANDARD OF LIV 
ING 

100 GOSUB 780:REM INFLATION RATE 

110 GOSUB 840:REM UNEMPLOYMENT 
120 IF GAME=1 THEN CLS:G0T0 890 
130 GOTO 50 

140 REM ************************ 
*** 

150 REM PRINTOUT 
160 CLS 

170 PRINT ''PRESIDENT ";A$; M : W 
180 PRINT ''YOUR ADMINISTRATION H 
AS BEEN IN POWER FOR ";Y+Z/4;" Y 
EARS" 

190 PRINT "- 


200 PRINT "-STATE OF THE NAT 

ION-" 

210 PRINT "- 


220 PRINT "POPULATION ";P 

230 PRINT "NO. UNB1PL0YED "jINTl 

UJj" "5lNT(100*U/P);"%" 

240 PRINT "CURRENT WAGES $";W05" 
INFLATION »;INT[IP);"%" 

250 PRINT "GOVT. EXPENDITURE LAS 
T QTR. $M";GE 

260 PRINT "UNEMPLOYMENT COST $M; 


"INT[10*GUJ/10 

270 PRINT "INCOME FROM TAXES $M; 
"INT(GI*10)/10 

280 PRINT "BUDGET SURPLUS(+]/DEF 

ICIT(-) $M";INT(BD*10]/10 

290 PRINT "GROSS DOMESTIC PRODUC 

T $M";INT[GDP*10)/10 

300 IF Y+Z/4>.5 THEN PRINT "CHAN 

GE IN LIVING STANDARD "5lNT((2*( 

(RGDP/AGDP]*100) -100 )/3) 

310 PRINT "- 


320 PRINT "PUB INVEST. ";Y;" QTR 
";Z;" $M"5lNT(IV*10)/10 

330 PRINT "- 


340 PRINT "0K f PRESIDENT ";A$;". 
..":BEEP .2,8 

350 INPUT "ENTER GOVERNMENT SPEN 
DING $M";GE 

360 INPUT "ENTER COST OF WAGES $ 
M";WN 

370 PRINT "IS YOUR ADMINISTRATIO 
N IN FAVOUR" 

380 PRINT "OF IMMIGRATION [Y/N]? 

ii 

390 LET X$=INKEY$ 

400 IF X$<>"Y" AND X$<>"N" THEN 
GOTO 390 

410 PRINT TAB[16] ;"0K.. ,";X$ 

420 BEEP .1,10: BEEP .1,7: BEEP 
.3,13 

430 IF X$<>"Y" THEN RETURN 
440 PRINT "HOW MANY WILL YOU ALL 
OW INTO THE US?" 

450 INPUT M 

460 IF M<0 THEN GOTO 450 
470 LET P=P4M 
480 RETURN 
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490 REM ************************ 
*** 

500 REM CALCULATIONS 
510 LET CN=CN+(CN*IP/100) 

520 LET U=P*(GE+IV)/(CN*10)+P*(I 
P/1000) 

530 LET GU=U*WN/ML: RBI UNEMPLOYM 
ENT COST 

540 LET GI=(((P-U)*WN*.4)/ML):RE 
M INCOME FROM TAXE 
550 LET BD=BD+GI-GU-GE:REM BUDGE 
T DEFICIT 

560 LET AGDP=AGDP*(1+(IP/100)) 
570 LET GDP=GE+IV+((P-U)*WN/ML) 
580 LET RGDP=GDP # 440/AGDP 
590 LET IP=((GE+IV)/CN*.1+(WN/W0 
)/ 100)*100 

600 LET IV=(CN*67)/(IP*IP) 

610 LET WQ=WN 

620 LET Z=Z+1:IF Z>4 THEN LET Z= 
IsLET Y=Y+1 
630 RETURN 

640 RBI ************************ 
*** 

650 REM CHECK BUDGET DEFICIT 
660 IF BD>-1000 THEN RETURN 
670 LET GAME=1 
680 LET FLAG=1 
690 RETURN 

700 REM ************************ 
*** 

710 REM CHECK STANDARD OF LIVING 

720 IF Y<.75 THEN RETURN 

730 IF INT((2*((RGDP/AGDP)*100)- 

100)/3)>-15 THEN RETURN 

740 LET GAME=1 

750 LET FLAG=2 

760 RETURN 

770 REM ************************ 
*** 


780 REM CHECK INFLATION RATE 
790 IF IP<15 THEN RETURN 
800 LET GAME=1 
810 FLAG=3 
820 RETURN 

830 REM ************************ 
*** 

840 RBI CHECK UNEMPLOYMENT 

850 IF INT[U*100/P) <15 THEN RETU 

RN 

860 LET GAME=1 
870 LET FLAG=4 
880 RETURN 

890 REM ************************ 
*** 

900 RBi END DF THE GAME 

910 PRINT "PRESIDENT ";A$5" f YOU 

R" 

920 PRINT "ADMINISTRATION'S POOR 
ECONOMIC" 

930 PRINT "PERFORMANCE HAS LED T 
0 AN UNACCEPTABLE" 

940 IF FLAG=1 THEN PRINT "BUDGET 
DEFICIT" 

950 IF FLAG=2 THEN PRINT "DROP I 
N THE STANDARD OF LIVING" 

960 IF FLAG=3 THEN PRINT "RISE I 
N THE INFLATION RATE" 

970 IF FLAG=4 THEN PRINT "RISE I 
N UNEMPLOYMENT" 

980 PRINT " AMONG OTHER 

THINGS..." 

990 PRINT "- 

_»i 

1000 PRINT "THE LACK OF CONFIDEN 
CE IN YOUR" 

1010 PRINT "ADMINISTRATION IS SO 
BAD THERE ARE" 

1020 PRINT "CALLS FOR YOU TO RES 
IGN...YOU STEP" 

1030 PRINT "ASIDE TO ALLOW THE V 
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ICE-PRESIDENT TO" 

1040 PRINT " OCCUPY THE OV 

AL OFFICE" 

1050 FOR H=1 TO lOOOsNEXT H 
1060 PRINT "- 


1070 PRINT "YOU WERE PRESIDENT F 
OR ";Y+lZ*.25)5 n YEARS" 

1080 PRINT "DURING YOUR TERM OF 
OFFICE, THE" 

1090 PRINT "POPULATION ROSE BY " 
;P-3*ML 

1100 PRINT "THE UNEMPLOYMENT RAT 
E BECAME ".-PRINT INT[U*1000/P]/1 
0 ;"%" 

1110 PRINT "AND THE INFLATION RA 
TE BECAME "sPRINT INT(10*IP)/10; 
"%" 

1120 PRINT "STANDARD OF LIVING C 
HANGED BY"sPRINT INT((2*([RGDP/A 
GDP)*100]—100]/3) 

1130 PRINT "THE BUDGET SURPLUS/D 
EFICIT WAS $M";INT(10*BD)/10 
1140 END 

1150 REM *********************** 
**** 

1160 REM INITIALIZATION 

1170 PAPER Is INK 7s BORDER 7s C 

LS 

1180 RANDOMIZE VAL(RIGHTS(TIME$ f 


2 ]] 

1190 LET ML=1000*1000 

1200 LET P=3*MLsREM POPULATION 

1210 LET U=P/10sREM UNEMPLOYMENT 

1220 LET IV=236sREM INVESTMENT 
1230 LET GE=118sREM GOVERNMENT E 
XPENDITURE 

1240 LET GU=OsREM COST OF UNEMPL 
OYMENT 

1250 LET GI=OsREM INCOME FROM TA 
XES 

1260 LET WN=100sRB1 NEW WAGES 
1270 LET W0=100sREM OLD WAGES 
1280 LET IP=5sREM INFLATION PERC 
ENT 

1290 LET GDP=44OsR01 GROSS DOMES 
TIC PRODUCT 

1300 LET AGDP=440sREM BASE YEAR 
GDP 

1310 LET RGDP=440sREM REAL GDP 
1320 LET CN=354sREM ECONOMIC CON 
STANT 

1330 LET Z=1sLET GAME=OsLET FLAG 
=0 

1340 LET Y=OsREM YEAR 

1350 PRINT "ENTER YOUR LAST NAME 

it 

1360 INPUT A$ 

1370 RETURN 
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Stock Market 


10 REM STOCK MARKET 

15 RBI SPECTRUM VERSION 

SO PAPER 1: INK 7: BORDER 7: CLS 

30 RANDOMIZE 

40 DIM S(5):DIM N[5]:DIM P(5):DI 
M D(5] 

50 LET S(1 ]=1.49:LET S(2]=1.99sL 
ET S(3)=2.49:LET S(4)=2.99:LET S 
(5) =3.49 

60 LET N(1) =2000:LET N(2)=1500:L 
ET N(3)=1200:LET N(4)=1000:LET N 
(5)=800 

70 LET BB=265:LET TV=15000:LET Q 
0=15000: LET DAY=1 
80 PRINT:PRINT "ENTER YOUR GOAL 
FOR THIS SIMULATION," 

90 PRINT TAB(8];"$16,000 TO $100 

, 000 " 

100 INPUT GOAL 

110 IF GQALC16000 THEN PRINT "TO 
0 LOWI":GOTO 80 

120 IF G0AL>100*1000 THEN PRINT 

"TOO HIGHI":GOTO 80 

130 REM ************************ 

140 RBI MAJOR LOOP 

145 BEEP .15,INT(RND*30)-15 

150 FOR C=1 TO 5 

160 REM ADJUST THE 55 IN NEXT LI 

NE TO MODIFY GAME; 80 VERY HAR 

D, 30 VERY EASY 

170 LET D(C)=INT(RND*55)+1 

180 LET P(C]=INT(RND*(100-D(CJ)) 

+1 

190 NEXT C 
200 GOSUB 230 
210 GOTO 460 

220 REM ************************ 


230 REM PRINTOUT 
240 CLS 

250 PRINT "- 


260 PRINT "DAY ";DAY;" YOUR GO 
AL IS $";GQAL 

270 PRINT "- 


280 PRINT "COMPANY NUMBER:" 

290 PRINT TAB[1];1;TAB(8);2;TAB( 
15);3;TAB(22];4;TAB(29);5 
300 PRINT "CHANCE OF INCREASE (X 
):" 

310 PRINT TAB(1);P(1);TAB(8);P(2 
);TAB(15];P[3);TAB(22);P[4);TAB( 
29);P(5) 

320 PRINT "CHANCE OF DECREASE [X 
):" 

330 PRINT TAB(1);D(1);TAB(8);D(2 
];TAB(15];D(3);TAB(22];D(4);TAB[ 
29);D[5) 

340 PRINT "CURRENT VALUE PER SHA 
RE:" 

350 PRINT "$";INT(S(1 )*100)/100; 
TAB(7);"$";INT[S(2)*100)/100; 

360 PRINT TAB[14);"$";INT(S(3)*1 
00)/100;TAB(21);"$";INT(S(4)*100 
J/100; 

370 PRINT TAB(28];"$";INT[S[5)*1 
00)/100 

380 PRINT "NO. OF SHARES HELD:" 
390 PRINT TAB[1);N(1);TAB(8);N[2 
];TAB(15);N(3];TAB(22];N(4];TAB( 
28);N(5) 

400 PRINT "BANK $";INT(BB);" TOT 
AL WORTH $";TV 

410 PRINT "- 


420 IF TV>GOAL THEN PRINT "YOU'V 
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E HIT YOUR FINANCIAL GOAL1":STOP 
430 RETURN 

440 REM ************************ 

450 REM ** SELL ** 

460 PRINT "DO YOU WANT TO SELL A 
NY SHARES (Y/N)?" 

470 A$=INKEY$ 

480 IF A$<>"Y" AND A$<>"N" THEN 
GOTO 470 

490 IF A$="N" THEN GOTO 690 
500 GOSUB 230 

510 PRINT "WHICH ONES TO SELL?"; 

520 LET A$=INKEY$ 

530 IF A$<"1" OR A$>"5" THEN GOT 
0 520 

540 LET C=VAL[A$) 

550 PRINT " OK ";C 

560 PRINT "HOW MANY OF ";C;" TO 

SELL"; 

570 INPUT N 

580 IF N>N(C) THEN PRINT "YOU DO 
N'T HAVE THAT MANY I":GOTO 570 
590 REM ************************ 

600 RBI ADJUST FIGURES AFTER SAL 
E 

610 LET BB=BB+S(C)*N:REM ADD VAL 
UE TO BANK 

620 LET N(C]=N[C]-N:REM SUBTRACT 
NO. SOLD 

630 LET TV=0: REM SET TOTAL WORTH 
TO ZERO 

640 REM NOW DETERMINE CURRENT WO 
RTH 

650 FOR C=1 TO 5 
660 LET TV=TV+N[C]*S[C] 

670 NEXT C 

680 LET TV=TV+BB:RB1 ADD IN BANK 


BALANCE 
690 GOSUB 230 

700 REM ************************ 

710 REM ** BUY ** 

720 PRINT "DO YOU WANT TO BUY AN 
Y SHARES (Y/N)?" 

730 LET A$=INKEY$ 

740 IF A$<>"Y" AND A$<>"N" THEN 
GOTO 730 

750 IF A$="N" THEN GOTO 890 
760 GOSUB 230 

770 PRINT "WHICH COMPANY TO BUY? 

n. 

V 

780 LET A$=INKEY$ 

790 IF A$<"1" OR A$>"5" THEN GOT 
0 780 

800 LET C=VAL(A$) 

810 PRINT " OK ";C 

820 PRINT "HOW MANY OF ";C;" TO 

BUY"; 

830 INPUT N 

840 IF N*S(C)>BB THEN PRINT "YOU 
DON'T HAVE ENOUGH MONEYI":GOTO 
830 

850 REM ************************ 

860 REM ADJUST FIGURES AFTER BUY 

870 LET BB=BB-S(C)*N 
880 LET N[C]=N(C)+N 
890 LET TV=0 
900 FOR C=1 TO 5 
910 LET TV=TV+N(C)*S(C) 

920 NEXT C 
930 LET TV=TV+BB 
940 GOSUB 230 

950 REM ************************ 

960 REM MODIFY ALL INDICATORS 
970 LET TV=0 
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980 FOR C=1 TO 5 

990 LET K=INT(RND*100)+1 

1000 IF K<P(C) THEN LET S(C)=S(C 

J*t1+tPtC}/1000)J 

1010 LET K=INT(RND*100]+1 

1020 IF K<D(C) THEN LET S(C)=S[C 

]/[1+(D(C)/1000j) 

1030 LET TV=TV+[S[C)*N(C)) 

1040 NEXT C 

1050 LET TV=TV+BB 

1060 LET QQ=QQ*1.005 

1070 LET W=[TV*100/QQ)-100 

1080 IF W=0 THEN LET W=.1 

1090 LET W=W+6 

1100 IF W<1 THEN LET W=1 

1110 IF W>15 THEN LET W=15 

1120 RESTORE 

1130 FOR T=1 TO W 

1140 READ A$ 

1150 NEXT T 
1160 PRINT 

1170 RBI *********************** 
* 

1180 REM GIVE RATING, START NEW 


ROUND 

1190 PRINT "YOUR RATING AFTER TH 
AT ROUND OF" 

1200 PRINT "TRADING IS '";A$5"'" 

1210 PRINTSPRINT " <PRESS SPAC 
E TO CONTINUE >" 

1220 IF INKEYSO" " THEN GOTO 12 
20:REM NOTE SPACE BETWEEN QUOTE 
MARKS 

1230 LET DAY=OAY+1 
1240 GOTO 150 

1250 DATA "HOPELESS","VERY, VERY 
POOR" 

1260 DATA "TERRIBLE","AWFUL","BA 
0 " 

1270 DATA "VERY ORDINARY","AVERA 
GE" 

1280 DATA "REASONABLE","A LITTLE 
ABOVE AVERAGE" 

1290 DATA "FAIRLY GOOD","GOOD",» 
VERY GOOD" 

1300 DATA "GREAT","EXCELLENT","S 
UPERLATIVE" 
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Detroit City 


10 REM DETROIT CITY 
15 REM SPECTRUM VERSION 
20 GOSUB 1640:REM INITIALIZE 
30 GOTO 110 

40 LET MT=MT+1sREM COUNTS MONTHS 
50 GOSUB 650 

60 IF TP>200 THEN GOTO 1560 
70 PRINT "DO YOU WANT TO RESIGN 
[Y/N]?" 

80 GOSUB 1010 

90 IF A$="Y" THEN PRINT "0K f CHI 

EF"sSTOP 

100 GOSUB 1380 

110 GOSUB 650 

120 FOR T=1 TO 1000 :NEXT T 
130 GOSUB 850 

140 PRINT "DO YOU WANT TO EXPAND 
OUTPUT [Y/N]?" 

150 GOSUB 1010 

160 IF A$="Y" THEN GOTO 1080 
170 IF SF=1 THEN GOTO 210 
180 PRINT "DO YOU WANT TO SELL F 
ACTORY 4 [Y/N)?" 

190 GOSUB 1010 

200 IF A$="Y" THEN GOTO 1250 
210 GOSUB 650 

220 INPUT "HOW MANY EMPLOYEES TO 
HIRE";HE 

230 LET NE=NE+HE:IF HEM) THEN GO 
TO 260 

240 INPUT "HOW MANY EMPLOYEES TO 
FIRE" 5 HE 
250 LET NE=NE-HE 
260 GOSUB 650 

270 LET PI=AS:REM SET PI EQUAL T 
0 OLD PRICE 

280 INPUT "WHAT IS YOUR SELLING 
PRICE"jAS 


290 REM NEXT LINE REJECTS TOO BI 
G A CHANGE IN SELL 

ING PRICE 

300 IF ABS[PI-AS)>2500 THEN PRIN 
T "TOO BIG A CHANGE FOR THE MARK 
ET":GOTO 280 
310 CLS 

320 PRINTsPRINT:PRINT 
330 LET MI=INT[RND*4000)+48*1000 
sREM THIS MONTH'S SALES BY 

INDUSTRY 

340 LET C=C+ 1 :REM COUNTS NUMBER 
OF MONTHS 

350 IF C<3 THEN GOTO 470 

360 LET M=INT(RND*10+1)/4:REM IN 

FLATION 

370 CLS 

380 PRINT "INFLATION RATE THIS Q 
UARTER IS ";M 5 "%" 

390 PRINT "AVERAGE WAGES BILL WI 
LL NOW RISE TO" 

400 LET AW=(AW*M/100)+AW 
410 PRINT TAB( 8 ];"$";INT(AW)j" 
PER EMPLOYEE" 

420 IF INKEY$<>"» THEN GOTO 420 
430 PRINT:PRINT TAB(12);"ANY KEY 
TO CONTINUE" 

440 IF INKEY$="» THEN GOTO 440 
450 LET FA=(FA*M/100)+FA 
460 LET C=0 

470 LET Y(1)=NE*15/12:REM SALES 
BASED ON NUMBER OF EMPLOYEES 
480 LET Y(2)=(1OO-AS/FA)*MI/ 1 00: 
RBI SALES BASED ON MONTHLY INDUS 
TRY SALES 

490 REM NEXT LINES SET LOWEST FI 
GURE FROM Y( 1 ) f Y(2) f M(5) EQUAL T 
0 Y(3] 

500 IF Y[ 1 )<Y(2) AND Y(1)<M(5] T 
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HEN LET Y( 3 )=Y[ 1 ]:GOTO 540 
510 IF Y( 2 )<Y( 1 ) AND Y(S)<M(5) T 
HEN LET Y(3)=Y(2J:G0T0 540 
520 LET Y(3J=H(5] 

530 REM NEXT LINES DETERMINE MON 
THLY SALES 

540 IF ABS(P1-AS)<501 THEN LET Y 
(3)=3.6*Y(3)/3 

550 IF Y(3)>M(5) THEN LET Y(3]=Y 

(3J-1975:GOTO 550 

560 MC=(MC*M/ 100 ]+MC 

570 LET EF=Y(3)/M(5)«iOO:REM EFF 

ICIENCY X AS SALES DIVIDED BY TO 

TAL OUTPUT 

580 LET AC=(MC*(ABS(85-EF)/3)/10 
0 )+MC:REM AVERAGE COST PER VEHIC 
LE 

590 LET MP=((Y(3)*(AS-AC))-(NE*A 
N/12)) :REM MONTHLY PROFIT 
600 LET MP=INT(MP/( 1 00*1000)) 

610 LET TP=TP+MP/ 10 : REM TOTAL PR 
OFIT IN MILLIONS 
620 LET M =0 
630 GOTO 40 

640 REM ************************ 
* 

650 REM REPORT PRINTOUT 
660 CLS 

670 PRINT "INDUSTRY SALES " 5 MI;" 
IN MONTH "jMT 

680 IF MT>0 THEN PRINT "YOUR SAL 
ES: ";INT(Y(3));" ("{INT(Y(3)*10 
00/MI)/10}"X OF TOTAL)" 

690 PRINT "- 


700 PRINT "YOU HAVE ";NE}" EMPLO 
YEES" 

710 PRINT "AVERAGE WAGES ARE $"; 
AW 

720 PRINT " OR $M";INT(AW*NE/(10 
0*1000)/12)/10;" PER MONTH" 


730 PRINT " 


740 IF MT=0 THEN RETURN 

750 PRINT "AVERAGE COST PER VEHI 

CLE IS (”;INT(AC) 

760 PRINT "AM) AVERAGE SELLING P 
RICE IS $";INT(AS) 

770 PRINT "SO THE AVERAGE PROFIT 
IS $";INT(AS-AC) 

780 PRINT "OR $M"}INT((AS-AC)*Y( 
3)/[100*1000))/10{" PER MONTH" 
790 PRINT "- 


800 PRINT "PROFIT FOR THE MONTH 
IS $M";MP/10 

810 PRINT "6 TOTAL PROFIT TO DAT 

E IS $M"{INT(TP*10)/10 

820 PRINT "- 


830 RETURN 

840 RBI ************************ 
* 

850 REM MONTH REPORT 
860 CLS 

870 IF MT >0 THEN PRINT "YOUR MON 
THLY SALES ARE " S INT(Y[3J) 

880 PRINT "- 


890 PRINT "MAXIMUM MONTHLY OUTPU 
T:" 

900 PRINT TAB(3);"FACTORY 1 : "}I 
NT(M(1J) 

910 PRINT TAB(3){"FACTORY 2 : " } I 
NT(M(2)J 

920 PRINT TAB(3);"FACTORY 3: ";I 
NT(M(3J) 

930 IF SF=1 THEN GOTO 960 

940 PRINT TAB( 3 );"FACTORY 4: ";I 

NT(M(4J) 

950 PRINT "- 
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960 PRINT "TOTAL OUTPUT IS ";INT 
(M(5)) 

970 PRINT "- 

- it 

980 PRINT "EFFICIENCY LEVEL IS " 
;INT[EF) 

990 RETURN 

1000 REM *********************** 
** 

1010 REM GET REPLIES 
1020 LET A$=INKEY$ 

1030 IF A$<>"Y" AND A$<>"N" THEN 
GOTO 1020 

1040 PRINT TAB[22];A$ 

1050 FOR J=1 TO 300:NEXT J 
1060 RETURN 

1070 RBI *********************** 
** 

1080 REM INCREASE OUTPUT? 

1090 IF M(4]=0 THEN LET X=15:G0T 
0 1110 

1100 LET X=18 

1110 PRINT "IT WILL COST IM'^X;" 
TO EXPAND" 

1120 PRINT TAB[ 8 );"OUTPUT BY 1 %" 
1130 PRINT "- 


1140 PRINT "HOW MANY % DO YOU WI 
SH TO RAISE OUTPUT?" 

1150 INPUT EP:IF EP<0 OR EP>100 

THEN GOTO 1150 

1160 LET M[5]=0 

1170 FOR T =1 TO 4 

1180 LET M(T)=M[T)+M(T)*B >/100 

1190 LET M(5)=M(5]+M(T] 

1200 NEXT T 
1210 LET TP=TP-EP*X 
1220 FOR T=1 TO 250:NEXT T 
1230 GOTO 170 

1240 RBI *********************** 
** 


1250 REM SALE OF FACTORY FOUR 
1260 PRINT "FACTORY 4 IS VALUED 
FOR SALE AT $M 1 Q 4 " 

1270 PRINT "YOU CAN'T REBUY IT L 
ATER IF YOU SELL IT..." 

1280 PRINT "DO YOU WANT TO SELL 
(Y/N)?" 

1290 GOSUB 1010 

1300 IF A$="N" THEN GOTO 210 

1310 LET TP=TP+104 

1320 LET SF=1 

1330 LET M(5]=M(1)+M(2]+M[3] 

1340 LET M(4]=0 
1350 GOTO 170 

1360 REM *********************** 
** 

1370 REM CHECK ON LOSSES 

1380 IF MP >0 THEN LET SA=0:G0T0 

1480 

1390 LET SA=SA+1 

1400 IF SA >11 THEN GOTO 1420 

1410 GOTO 1480 

1420 CLS:PRINT 

1430 PRINT "YOU JUST MADE YOUR T 
WELFTH MONTHLY" 

1440 PRINT "LOSS IN A ROW. 


1450 PRINT TAB( 6 ) ;"YOUR BPLOYME 
NT" 

1460 PRINT TAB( 6)5 "IS HEREBY TER 
MINATEDII" 

1470 STOP 

1480 IF TP>=-250 THEN GOTO 1530 
1490 CLS:PRINT 

1500 PRINT "UNDER YOUR MANAGEMEN 
T v THE COMPANY HAS" 

1510 PRINT "LOST MORE THAN $M250 
I" 

1520 GOTO 1450 

1530 IF TP>200 THEN GOTO 1570 
1540 RETURN 
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1550 REM *********************** 1680 LET NE=12000:REM STARTING N 
** 0 EMPLOYEES 

1560 REM SWEET SWEET SUCCESS11! 1690 LET AW=22995:REM STARTING A 

1570 CLSSPRINT VERAGE WAGE 

1580 PRINT "WELL DONE! THE COMPA 1700 LET AC=11100:REM COST PRICE 
NY HAS MADE MORE" /VEHICLE 

1590 PRINT " THAN $M200. YO 1710 LET AS=12000:REM SELLING PR 
U'VE BEEN MADE" ICE 

1600 PRINT " A MEMBER OF 1720 LET MI=50*1000:LET MC=10100 

THE BOARD" 

1610 FOR T=1 TO 600:NEXT T 1730 LET Y(3)=12500 

1620 STOP 1740 LET MS=25:LET EF=77:LET FA= 

1630 RBI *********************** 160:LET SF=0:LET MT=0 

** 1750 FOR J=1 TO 5 

1640 REM INITIALIZATION 1760 READ M(J) 

1650 PAPER Is IMC 7: BORDER 7: C 1770 NEXT J 

LS 1780 RETURN 

1660 RANDOMIZE 1790 DATA 8900,3250,2500,1625,16 

1670 DIM M[5):DIM Y(5] 275 
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Gridiron 


10 REM GRIDIRON 

15 REM SPECTRUM VERSION 

20 CLS 

30 RANDOMIZE 
40 GOSUB 70 
50 GOTO 220 

60 REM ************************ 
70 BORDER INT(RND*8) 

72 LET W=W+.5 

73 FOR X=1 TO 700 s NEXT X 
80 RETURN 

90 REM ************************ 
100 PRINT A$;SA 
110 PRINT B$;SB 
120 RETURN 

130 RBI ************************ 

140 IF Z$=A$ THEN LET Z$=B$:RETU 
RN 

150 LET Z$=A$sRETURN 

160 REM ************************ 

170 IF INKEYSO"" THEN GOTO 170 
180 PRINT " > PRESS ANY KEY 

<" 

190 IF INKEY$="" THEN GOTO 190 
200 PRINT TAB(20); n 0K H :RETURN 
210 RBI ************************ 

220 REM INITIALIZE 

222 PAPER Is INK 7s CLS 

225 LET W=1s LET SB=Os LET SA=0 

230 DEF FNA[X)=INT[RND*X)+1 

240 PRINT "ONE PLAYER OR TWO" 

250 INPUT X 

260 IF X<1 OR X>2 THEN GOTO 250 
270 IF X=1 THEN LET VC=1sLET A$= 
"SILICON COWBOYS"sGOTO 300 
280 PRINT "WHAT IS THE NAME OF T 


HE HOME TEAM?" 

290 INPUT A$sIF A$="» THEN GOTO 
290 

300 PRINT "AND THE NAME OF THE V 
ISITING TEAM?" 

310 INPUT B$sIF B$=»" THEN GOTO 
310 

320 LET Z$=A$:LET NU=35 
330 CLS 

340 PRINT "THERE ARE ";INT(10*(6 
0-(W/4)))/10;" MINUTES TO GO" 

350 PRINT TAB( 8 );Z$" TO KICK OFF 

ii 

360 PRINT "YOU ARE ON YOUR OWN ” 
;NU;" YARD LINE" 

370 IF VC =1 AND Z$=A$ THEN GOSUB 
70sGOTO 400 

380 PRINT "TO KICK OFF..." 

390 GOSUB 170 

400 LET A=FNA(20)+40 

410 PRINT Z$ 5 " HAVE..." 

420 FOR X =1 TO A 
430 PRINT TAB(X/3) 5 "KICKED " 5 X 5 " 
YARDS"s BEEP .04,X-20 
440 NEXT X 
450 LET NU=NU+X 
460 GOSUB 70 

470 PRINT "THE BALL IS CAUGHT!" 
480 GOSUB 70 
490 LET A=FNA(30)+10 
500 FOR X=1 TO A 
510 PRINT TAB(X/5j 5 "AND RETURNED 
" 5 X 5 " YARDS" 

520 NEXT X 

530 LET NU=ABS(1OO-NU+X] 

540 GOSUB 140 

550 PRINT "- 


560 PRINT "THE BALL IS DOWN ON" 
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570 PRINT Z*;"'S ";NU;" YARD LIN 
E" 

580 IF Z$=A$ AMD VC=1 THEN GOSUB 
70:GOTO 600 
590 GOSUB 170 

600 LET TG=10:LET D=0:LET SL=NU 
610 IF W=60 OR W=180 THEN GOTO 2 
010 

620 IF W=120 THEN GOTO 2070 
630 IF W=240 THEN GOTO 2140 
640 CLS 

645 IF LEN B$<6 THEN LET B$=B$+" 

n 

650 PRINT " PAPER 7; INK 

2; A$( TO 6);": "| BRIGHT 1;SA; 

BRIGHT Os" - ";B$( TO 6);": " 

; BRIGHT 1;SB: PAPER 1: INK 7: P 

RINT "-- 

-": BEEP .1,18 

660 PRINT INT(10*(60-[W/4))J/10; 
" MINUTES TO GO" 

670 GOSUB 70 

680 PRINT "- 

_ii 


790 PRINT B$j" CAN" 

800 PRINT "EITHER 1 - THROW" 

810 PRINT " 2 - CARRY" 

820 PRINT " OR 3 - PUNT" 

830 LET P=0 

840 IF Z$=At AND VC=1 AM) D<3 TH 

EN LET P=2:G0T0 900 

850 IF Z*=A$ AM) VC=1 AND TG<7 T 

HEN LET P=2:G0T0 900 

860 IF Z*=A$ AND VC=1 AM) [100-N 

UJ <31 THEN LET P=3:G0T0 900 

870 IF Z$=A$ AM) VC=1 THEN LET P 

=1 :GOTO 900 

880 LET K$=INKEY$:IF K$<"1" OR K 

$>"3" THEN GOTO 880 

890 LET P=VAL[K$JSPRINT TAB(IO); 

"OK ";P 

900 GOSUB 70 

910 LET W=W+1 

920 CLS 

930 PRINT Z$s", YOUR QUARTERBACK 
HAS" 

940 PRINT TAB(8)}"GOT THE BALL" 
950 PRINT "- 


690 PRINT Z$f" IN POSSESSION" -" 

700 PRINT TAB(4);D;" DOWN" 960 PRINT "WAIT FOR THE COUNT, " 

710 PRINT TAB(4);TG;" YARDS TO G 

0" 870 PRINT TAB(8){"THEN HIT ANY K 

720 PRINT "-EY..." 

-" 980 IF INKEY$<>"" THEN GOTO 980 

730 PRINT "START AT ";SL;" YARD 990 GOSUB 70 

LINE" 1000 GOSUB 2200 

740 PRINT "NOW ON ";NU;" YARD L11010 IF E=11 THEN GOTO 2340 

NE" 1020 PRINT "- 

750 PRINT 100-NU;" YARDS TO TOUC-" 

HD OWN" 1030 IF P=1 THEN GOTO 1050 

760 PRINT "-1032 IF P=2 THEN GOTO 1310 

-» 1036 IF P=3 THEN GOTO 1590 

770 PRINT "ON THIS PLAY 1040 REM *********************** 

780 IF Z$=A* THEN PRINT A*;" CAN * 

":GOTO 800 1050 PRINT "YOU'VE THROWN ";E*5; 
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" YARDS" 

1060 PRINT TAB[4];"AND THE PLAY 

IS..." 

1070 LET A=FNA(8] 

1080 IF A=1 THEN GOTO 1520 
1090 LET A=FNA(E+1) 


1350 IF E=0 THEN LET E=1sG0T0 13 
70 

1360 PRINT "GOOD SNAP V PASS AND 
RUN" 

1370 PRINT "YOU'VE GAINS) "jE?" 
YARDS" 


1100 IF A=1 THEN PRINT TAB(20];" 
...COMPLETE":GOTO 1220 
1110 PRINT TAB[20)..INCOMPLET 
E":LET D=D+1 
1120 GOSUB 170 

1130 PRINT "- 


1140 IF D>3 THEN GOTO 1160 
1150 GOTO 610 

1160 PRINT "THAT WAS YOUR 4TH DO 
WN" 

1170 PRINT "AND YOU'VE LOST POSS 
ESSIONI!" 

1180 LET D=Q:LET TG=10:LET NU=AB 

S(100-NUJ:LET SL=NU 

1190 GOSUB 70 

1200 GOSUB 140 

1210 GOTO 610 

1220 GOSUB 170 

1230 LET NU=NU+(E*5]:LET TG=TG-( 
E*5] 

1240 IF NU>100 THEN GOTO 1800 
1250 IF TG<1 THEN GOTO 1280 
1260 LET D=D+1: IF D>3 THEN GOTO 
1160 

1270 GOTO 610 

1280 LET D=Q:LET TG=10:LET SL=NU 
1290 GOTO 610 

1300 REM *********************** 


1380 GOSUB 170 

1390 LET TG=TG-E:LET NU=ABS(NU+E 
] :LET D=0+1 

1400 IF NUMOO THEN GOTO 1800 
1410 IF TG<1 THEN GOTO 1280 
1420 IF D>3 THEN GOTO 1160 
1430 GOTO 610 

1440 PRINT "GREAT RUNNING BY THE 
OPPOSITION HAS" 

1450 PRINT "CAUSE) YOU TO LOSE " 
;ABS(E)YARDS" 

1460 LET TG=TG-E:LET NU=NU+E:LET 
D=D+1 

1470 GOSUB 170 

1480 IF D>3 THEN GOTO 1160 

1490 GOTO 610 

1500 REM *********************** 
* 

1510 PRINT "BAD SNAP...YOU'VE" 
1520 PRINT "FUMBLED...AND" 

1530 PRINT "YOU'VE LOST POSSESSI 

ON..." 

1540 LET NU=100-NU:LET D=0:LET T 
G=10:LET SL=NU 

1550 REM *********************** 
* 

1560 GOSUB 170 
1570 GOTO 460 

1580 REM *********************** 
* 


* 

1310 LET A=FNA(15] 

1320 IF A=1 THEN GOTO 1510 

1330 LET E=A-5 

1340 IF E<0 THEN GOTO 1440 


1590 PRINT "NICE PUNT..." 

1600 PRINT "YOU'VE KICKE) I, E*4"YA 
RDS" 

1610 LET NU=NU+E*4 

1620 IF NU>100 THEN GOTO 1650 
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1630 PRINT " 


_it 

1640 GOTO 460 
1650 LET A=FNA[3) 

1660 IF A >1 THEN GOTO 1740 
1670 PRINT "BUT YOU'VE MISSED TH 
E GOAL!!" 

1680 IF NU-E*4<80 THEN LET NU=AB 
S(100-(NU—E*4)) sGOTO 1700 
1690 LET NU=20 

1700 LET D= 0 :LET TG=10sLET SL=NU 

1710 GOSUB 140 
1720 GOSUB 170 
1730 GOTO 610 

1740 PRINT ".....AND SCORED 

I" 

1750 IF Z$=B$ THEN LET SB=SB+3:G 
OTO 1770 

1760 LET SA=SA+3 
1770 GOSUB 100 
1780 GOSUB 170 
1790 LET NU=35sGOTO 330 
1800 CLS 

1810 FOR X =1 TO 5 

1820 PRINT TAB(X*2) 5 "TOUCHDOWNII 

I" 

1830 NEXT X 

1840 IF Z$=A$ THEN LET SA=SA+ 6 sG 
OTO 1860 

1850 LET SB=SB +6 
1860 GOSUB 100 

1870 PRINT "TO PLAY FOR EXTRA PO 


1930 IF E>9 THEN PRINT "YOU MISS 
ED"sLET NU=20sGOTO 1970 
1940 PRINT "YOU SCORED..."sLET N 
U=35 

1950 IF Z$=A$ THEN LET SA=SA+1sG 
OTO 1980 

1960 LET SB=SB+1sGOTO 1980 

1970 GOSUB 140 

1980 GOSUB 100 

1990 GOSUB 170 

2000 GOTO 330 

2010 FOR X =1 TO 10 

2020 PRINT TAB( 2 *X);"PERIOD OVER 

n 

2030 NEXT X 

2040 GOSUB 100 

2050 GOSUB 170 

2060 GOTO 660 

2070 FOR X =1 TO 10 

2080 PRINT TAB( 2 *X);"HALF TIME" 

2090 NEXT X 

2100 GOSUB 100 

2110 LET Z$=B$ 

2120 GOSUB 170 

2130 LET NU=35sLET W=W+2sGOTO 33 
0 

2140 FOR X =1 TO 10 

2150 PRINT TAB( 2 *X]?"GAME OVER" 

2160 NEXT X 

2170 GOSUB 100 

2180 STOP 

2190 REM *********************** 


INT" 

1880 GOSUB 170 
1890 PRINT 


2200 LET E= 0 s LET X=10 

2210 IF Z$=A$ AND VC =1 THEN PRIN 

T "THIS ONE FOR ";A$sGOTO 2290 


2220 LET E=E+1s LET X=X -1 


1900 PRINT "THE BALL IS SNAPPB). 2230 PRINT TAB(E);E 
..PREPARE TOKICK!"s BEEP .1,-12 2240 FOR Y =1 TO X*1.5 
1910 GOSUB 70 2250 IF INKEY$<>"" THEN LET Y=X* 

1920 GOSUB 2200 1.5+1sRETURN 
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2260 NEXT Y 

2270 IF E=11 THEN RETURN 

2280 GOTO 2220 

2290 FOR E=1 TO FNA(7j+2 

2300 FOR J=1 TO 30 s NEXT J 

2310 PRINT TAB(E);E 

2320 NEXT E 

2330 RETURN 

2340 PRINT "TOO LATE!" 

2350 PRINT "YOU'VE BEEN SACKED! 

2360 LET E=FNA(4) 

2370 IF E=3 THEN GOTO 2430 


2380 PRINT "AND LOST FIVE YARDS! 

it 

2390 LET TG=TG+5:LET D=D+1sLET N 
U=NU—5 

2400 GOSUB 170 

2410 IF D>3 THEN GOTO 1160 

2420 GOTO 610 

2430 PRINT "AND LOST POSSESSION! 

t« 

2440 LET D=0:LET NU=ABS(100-NU+5 

)sLET SL=NU:LET TG=10 

2450 GOSUB 170 

2460 GOSUB 140 

2470 GOTO 610 
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Tennis 


10 REM TENNIS 
15 REM SPECTRUM VERSION 
20 PAPER 4: INK 0: CLS 
30 RANDOMIZE 

40 LET AA=0:LET BB=0:LET T=0:LET 
KA=0 

50 LET XA=0sLET YA=0:LET ZA=0 
60 LET XB=OsLET YB=0:LET ZB=0 
70 D EF FNA[X)=INT(RND*X)+1 
80 INPUT "ONE HUMAN PLAYER OR TW 
0";A 

90 IF A<1 OR A>2 THEN GOTO 80 
100 IF A=1 THEN LET A*="BJORNX": 
LET VC=1 

110 IF VC=1 THEN GOTO 160 

120 PRINT "PLEASE ENTER A SIX-LE 

TTER NAME" 

130 INPUT "NAME OF FIRST PLAYER" 
;A$ 

140 IF LEN(A$)<6 THEN LET A$=A$+ 

" "sGOTO 140 

150 LET A$=A$[ TO 6] 

160 INPUT "NAME OF SECOND PLAYER 
";B$ 

170 IF LEN(B$J<6 THEN LET B$=B$+ 

" "sGOTO 170 

180 LET B$=B$( TO 6) 

190 LET S=1 :LET AA=1 :LET BB=1 
200 CLS 

210 LET P$=A$sLET R$=B$ 

220 RBI ************************ 
****** 

230 IF P$=A$ THEN LET R$=B$ 

240 IF P$=B$ THEN LET R$=A$ 

250 PRINT P$;" SERVING" 

260 PRINT BRIGHT 1;"D0 YOU WANT 
TO SERVE 1 - FAST" 

270 PRINT BRIGHT 1}" 

OR 2 - SLOW" 


280 IF P$=A$ AND VC=1 AND SC=0 T 
HEN LET KB=1:GOSUB 1720:GOTO 330 

290 IF P$=A$ AND VC=1 AND SC=1 T 
HEN LET KB=2:GOSUB 1720:GOTO 330 

300 LET K$=INKEY$ 

310 IF K$<"1" OR K$>"2" THEN LET 
300 

320 LET KB=VAL(K$) 

330 PRINT:PRINT TAB(6];KB;TAB(10 
J;"> IT'S A "{ 

340 IF KB=1 THEN PRINT "FAST"; 
350 IF KB=2 THEN PRINT "SLOW"; 
360 PRINT " SERVE..." 

370 GOSUB 1720 

380 IF KB=1 THEN LET EB=FNA(3):G 
OTO 400 

390 LET EB=FNA(8] 

400 IF EB=1 THEN GOTO 450 
410 IF EB=3 AND SC=0 THEN GOTO 5 
20 

420 IF EB=3 AND SC=1 THEN GOTO 5 
90 

430 GOTO 670 

440 REM ************************ 
****** 

450 CLS:PRINT 

460 PRINT TAB(8];"....ACE...." 
470 GOSUB 1720 
480 LET SC=0 

490 IF P$=A$ THEN GOTO 1140 
500 GOTO 1150 

510 REM ************************ 
****** 

520 CLS:PRINT 

530 PRINT TAB(12]OUT...." 
540 PRINT TAB(8);"...SECOND SERV 
E..." 
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550 GOSUB 1720 
560 LET SC=1 
570 GOTO 230 

580 RBI ************************ 
****** 

590 CLSsPRINT 

600 PRINT TAB(12);"....OUT...." 
610 PRINT TAB(9)DOUBLE FAU 

LT..." 

620 GOSUB 1720 
630 LET SC=0 

640 IF P$=A$ THEN GOTO 1150 
650 GOTO 1140 

660 RBI ************************ 
****** 

670 LET SC=0 
680 CLSsPRINT 

690 IF INKEYSO"" THEN GOTO 690 
700 PRINT R$;" f THE BALL IS":PRI 
NT "IN YOUR COURT" 

710 PRINT "- 

ji 

720 IF R$=A$ AND VC=1 THEN GOTO 
750 

730 PRINT "HIT ANY KEY, WHEN YOU 
SEE THE ZERO, TO RETURN THE 
BALL..." 

740 IF INKEYIO"" THEN GOTO 740 
750 LET X=4*FNA(3)sLET Y=tt 
760 GOSUB 1720 
770 LET E=5 

780 PRINT TAB(2*(11-E));E 
790 LET Y=Y -1 
800 LET S$=INKEY$ 

810 IF S$<>"" AND E =0 THEN GOTO 
890 

820 IF S$<>"" THEN GOTO 990 

830 IF Y>0 THEN GOTO 790 

840 LET E=E- 1 :LET Y=X 

850 IF E<-1 THEN GOTO 990 

860 IF E=-1 AND R$=A$ AND VC =1 T 


HEN GOTO 890 
870 GOTO 780 

880 IF KB=1 THEN LET EA=FNA(2):G 
OTO 1000 

890 LET EA=FNA[4) 

900 IF E=0 At© R$=A$ AND VC=1 TH 
EN LET EA=FNA( 8 ) 

910 IF EA=1 THEN GOTO 940 
920 IF R$=A$ THEN LET R$=B$:GOTO 
670 

930 LET R$=A$:GOTO 670 

940 PRINT R$f", YOU'VE HIT THE B 

ALL" 

950 PRINT TAB[ 8 ] 5 "OUT OF PLAY... 

ti 

960 GOSUB 1720 

970 IF R$=A$ THEN LET R$=B$sGOTO 
1150 

980 GOTO 1140 
990 LET EA=FNA(4) 

1000 IF EA=1 THEN GOTO 1070 
1010 PRINT "YOU HISSH) THE BALL, 
AND..." 

1020 GOSUB 1720 

1030 PRINT " IT WAS IN...BAD M 
ISTAKE" 

1040 GOSUB 1720 

1050 IF R$=A$ THEN LET R$=B$:GOT 
0 1150 

1060 GOTO 1140 

1070 PRINT "YOU HISSED THE BALL 
AND..." 

1080 GOSUB 1720 

1090 PRINT « IT WAS OUT..WELL 
LEFT" 

1100 GOSUB 1720 

1110 IF R$=A$ THEN LET R$=B$sGOT 
0 1140 

1120 GOTO 1150 

1130 RBI *********************** 
******* 
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1140 LET AA=AA+1s GOTO 1160 

1150 LET BB=BB+1 

1160 IF AA<5 AND BB<5 THEN GOTO 

1230 

1170 IF (BB>4 AND AA<4) OR [BB>4 
AND BB-AA>1) THEN LET AA=1 sLET 
BB=1:GOTO 1500 

1180 IF [AA>4 AND BB<4) OR (AA>4 
AND AA-BB>1 J THEN LET AA=1 sLET 
BB=1: GOTO 1440 

1190 IF AA>4 AND AA>BB THEN LET 

C$="ADV":LET D$="-":GOTO 1320 

1200 IF BB>4 AND BB>AA THEN LET 

D$="ADV":LET C$="-":GOTO 1320 

1210 LET C$="{DEUCE":LET D$="{DE 
UCE":GOTO 1320 

1220 RBI *********************** 
******* 

1230 RESTORE 
1240 FOR D =1 TO AA 
1250 READ C$ 

1260 NEXT D 
1270 RESTORE 
1280 FOR D=1 TO BB 
1290 READ D$ 

1300 NEXT D 

1310 REM *********************** 
******* 

1320 CLS 

1330 PRINT *- 

_n 

1340 PRINT M SET SET S 

ET" 

1350 PRINT "- 

_n 

1360 PRINT » 1 2 

3 GAME” 

1370 PRINT AS;" ";XA;" ";YA; 

ii tt ;Z A;« m ; C$ 

1380 PRINT B$s" ";XB;" ";YB; 

" " 5 ZB 5 " ";D$ 


1390 PRINT "- 

n 

1400 GOSUB 1720 
1410 IF T <>1 THEN GOTO 230 
1420 FOR T=1 TO 25: BEEP ,1 f Ts B 
EEP .1 f T+3: NEXT T:PRINT:PRINT " 
MATCH OVER ":STOP 
1430 REM *********************** 
******* 

1440 CLS 

1450 PRINT "GAME TO ";A$ 

1460 GOSUB 1720 

1470 IF S =1 THEN LET XA=XA+1:LET 
C$=" 0 ":LET D$=" 0 ":GCrr 0 1560 
1480 IF S=2 THEN LET YA=YA+1:LET 
C$=" 0 ":LET D$="0":G0T0 1580 
1490 IF S=3 THEN LET ZA=ZA+1:LET 
C$="0":LET D$="0":G0T0 1600 
1500 CLS 

1510 PRINT "GAME TO ";B$ 

1520 GOSUB 1720 

1530 IF S=1 THEN LET XB=XB+1:LET 
C$="0":LET D$="0":G0T0 1560 
1540 IF S=2 THEN LET YB=YB+1:LET 
C$=" 0 ":LET D$="0"sG0T0 15B0 
1550 IF S=3 THEN LET ZB=ZB+1:LET 
C$="0":LET D$="0":G0T0 1600 
1560 IF (XA>5 AND XB<5) OR (XA<5 
AM) XB>5] THEN GOTO 1630 
1570 IF (XA>5 AND XA-XB>1) OR (X 
B>5 AND XB-XA>1) THEN GOTO 1630 
1580 IF [YA>5 AND YB<5) OR (YA<5 
AND YB>5) THEN GOTO 1630 
1590 IF (YA>5 AND YA-YB< 1 ) OR (Y 
B>5 AND YB-YA>1 J THEN GOTO 1630 
1600 IF (ZA>5 AND ZB<5) OR (ZA<5 
AND ZB>5] THEN GOTO 1680 
1610 IF (ZA>5 AND ZA-ZB>1) OR (Z 
B>5 AND ZB-ZA>1) THEN GOTO 1680 
1620 GOTO 1640 
1630 LET S=S+1 
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1640 LET AA=1sLET BB=1 
1650 IF P$=A$ THEN LET R$=A$sLET 
P$=B$sG0T0 1320 

1660 LET P$=A$sLET R$=B$s60T0 13 
20 

1670 REH *********************** 
******* 

1680 LET T=1 
1690 GOTO 1320 

1700 REM *********************** 
******* 

1710 REM DELAY 

1720 BORDER INT [RND*8]: PAUSE 2 
00s BEEP .15 f INT[RND*55]-20 
1730 RETURN 

1740 DATA ,l 0 ,, F ,, 15 ,, l ,, 30 w F ,, 40 n 
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Grand Prix 


10 RBI GRAND PRIX 
20 GOSUB 2200:RBI INITIALIZE 
30 GOSUB 1190:RBI CHOOSE TRACK 
40 REH ************************* 

SO REM MAJOR LOOP 
60 GOSUB 120:REM PRINTOUT 
70 GOSUB 280:RBI ACCELERATION/CH 
ECK 

80 GOSUB 450:REM ENGINE/BRAKES 
90 GOSUB 500:REM CORNER/POSITION 

100 GOTO 60 

110 REM ************************ 
* 

120 REM PRINTOUT 
130 CLS 

140 PRINT INK 0; BRIGHT 1;" ENG 
INE TEMP: ";INT(ENG*10)/10;"C.MA 
X.200" 

150 PRINT INK 0; BRIGHT 1;"BRAKE 
TEMPERATURE: ";INT[BRAK*10)/10; 
"C.MAX.500" 

160 PRINT INK 0; BRIGHT 1;" DIST 
ANCE COVERED: ";INT(DIST*10)/10" 
METRES" 

170 PRINT INK 0; BRIGHT 1?" 

:" ;INT[DIST*100/RR) 

/100}" LAPS" 

180 PRINT INK 0} BRIGHT 1;"Y0UR 

POSITION IS ";INT(FPJ 

190 PRINT "- 

_it 

200 PRINT INK 2;" CURRENT SPE 
ED: "}INT(SPEBJ*10)/10}"KPH" 

210 PRINT INK 2|" 

: ";INT(SPEED*5.555]/10;" METR 
ES PER MOVE" 

220 PRINT "- 


n 

230 PRINT INK 3;"CORNER APPROACH 
ING ";INT(APPJ}" METRES" 

240 PRINT INK 3;"RECOMMENDED SPE 
B): "}C(C)KPH" 

250 PRINT "- 

n 

260 RETURN 

270 RBI ************************ 
* 

280 RBI CHECK ACCELERATION AND F 
ACTORS 

290 X$=INKEY$:IF X$<>"Z" AND X$< 
>"M" AND X*<>" " THEN GOTO 290 
300 PRINT TAB(12);"0K" 

310 LET X=0 

320 IF X$="M" THEN LET X=SPEH)/1 
5 

330 IF X$="Z" THEN LET X=-SPEED/ 
15 

340 LET NUM=NUM+1 :RBI NUMBER OF 
MOVES 

350 LET SPEED =SPEH)+X 
360 IF SPEED<0 THEN LET SPEED=0 
370 LET TRAV=SPEED*.5555:REM DIS 
TANCE TRAVELLED 

380 LET DIST=OIST+TRAV:REM TOTAL 
DISTANCE TRAVELLED 
390 LET ENG=ENG+[X/2)+.07:IF ENG 
<70 THEN LET ENG=70+RND*8:REM EN 
GINE TB1P 

400 IF X>0 THEN LET BRAK=BRAK*.9 
:RBI BRAKE TEMP FALLING; ACCELER 
ATING 

410 IF X<1 THEN LET BRAK=BRAK-(3 
*X)-RND*3:REM BRAKE TEMP INCREAS 
ING; BRAKING 

420 IF BRAK<8 THEN LET BRAK=8+RN 
D*8 
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430 RETURN 

440 REM ************************ 
♦ 

450 REM CHECK ENGINE/BRAKE TBIP 
460 IF ENG>200 THEN PRINT "YOUR 
ENGINE HAS OVERHEATED":GOTO 830 
470 IF BRAK>500 THEN PRINT "YOUR 
BRAKES HAVE OVERHEATED":GOTO 83 

0 

480 RETURN 

490 REM ************************ 
* 

500 REM CHECK CORNERING SPEED AN 

D FIELD POSITION 

510 LET APP=APP-TRAV 

520 IF APP>0 THEN RETURN 

530 LET CRASH=0 

540 IF SPEED>[C(C)*1.125] THEN L 
ET CRASH=1:G0T0 690 
550 IF SPEED>(C(C)* 1 . 1 ) THEN GOT 
0 690 

560 LET PNT=PNT+100-[[C[C)* 1 . 1 )— 
SPEED):REM CORNERING POINTS 
570 LET NC=NC+ 1 :REM NUMBER OF CO 
RNERS 

580 LET CP=96-[PNT/NC]:REM CORNE 
RING POSITION 

590 LET AM=AM+A(C):REM AVERAGE N 

UMBER OF MOVES ALLOWED 

600 LET RP=NUM-AM:REM RACING POS 

ITION: YOUR MOVES MINUS AVERAGE 

MOVE 

610 LET FP=(CP+RP)/ 2 :REM FIELD P 

OSITION IS AVERAGE OF CORNER & R 

ACE POSITIONS 

620 IF FP <1 THEN LET FP =1 

630 LET C=C +1 

640 IF C=WW THEN LET C=1:REM LAP 
OVER 

650 LET APP=APP+D(C) 

660 IF LAP*QQ=AM THEN GOTO 910:R 


EM RACE OVER 
670 RETURN 

680 REM ************************ 
* 

690 REM CRASHED 
700 CLS 

710 PRINT "YOU CORNERS) AT ";INT 
(10*SPEED)/10;" KPH" 

720 PRINT "AND THE MAXIMUM SPEED 
WAS JUST ";C[C) 

730 GOSUB 2330 

740 PRINT "YOU SPIN OFF THE TRAC 
K... 

750 GOSUB 2330 

760 IF CRASH=1 THEN GOTO 830 
770 PRINT "YOU'VE LOST 20 SECOND 
S f BUT YOU ARE ABLE TO REJOIN T 
HE RACE" 

780 LET NUM=NUM+ 1 0:LET SPEED=INT 
(2*C(C)/3) 

790 LET PNT=PNT+5Q 
800 GOSUB 2330 
810 GOTO 570 

820 REM ************************ 
* 

830 PRINT ».AND CRASH! 

III!" 

840 PRINT "- 

w 

850 PRINT "YOU ONLY COMPLETED 
INT[10*DIST)/105" METRES," 

860 PRINT "OR n jINT[DIST*100/RR) 
/100 5 " LAPS AND AT THAT" 

870 PRINT "STAGE WERE IN POSITIO 
N "jINT(FP) 

880 PRINT "- 

ii 

890 GOTO 1050 

900 REM ************************ 
* 

910 REM RACE OVER 
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920 CLS ET LAP=L2AP:G0T0 60 

930 LET EFLAG=1 1170 IF I$=»N" THEN CLSsGOSUB 12 

940 FOR X =1 TO 20 50 s GOTO 60 

950 PRINT TAB(X);"WELL DONE, ";A 1180 REM *********************** 
11 " ** 

960 PRINT TAB(21 -X]; "WELL DONE, 1190 REM NAME AND TRACK DATA 
”;A$;"!I M 1200 INPUT "WHAT IS YOUR NAME, D 

970 NEXT X RIVER" 5 A$ 

980 PRINT "- 1210 PRINT 

-" 1220 FOR X =1 TO 3 

990 PRINT "YOU MANAGED TO LAST 0 1230 PRINT TAB(4*X] s"OK, GOOD LU 
UT THE FULL " 5 LAP 5 " LAP RACE..." CK, "jAS 

1240 GOSUB 2330:NEXT X 

1000 PRINT "-- 1250 PRINT "******************** 


.11 


*****************n 


1010 GOSUB 2330 

1020 PRINT "YOU FINISHED IN POSI 
TION ";INT(FP) 

1030 PRINT "AFTER STARTING IN 6 T 
H POSITION..." 

1040 GOSUB 2330 

1050 PRINT "YOUR AVERAGE SPEED W 
AS ";INT[DIST*180/NUM)/100;" KPH 

it 

1060 GOSUB 2330 

1070 IF RP <1 THEN LET RP =1 

1080 IF CP <1 THEN LET CP=1 

1090 PRINT "YOU WERE ";INT(ABS(R 

P]];"TH FASTEST ON STRAIGHTS," 

1100 PRINT "AND ";INT(ABS(CP))"T 

H FASTEST ON CORNERS." 

1110 PRINTsPRINT "PRESS 'S' FOR 
SAME RACE, 'N' FOR NEW RACE, 
'E* TO END" 

1120 I$=INKEY$sIF I$<>"S" AND 1 $ 
<>"N" AND I$<>"E" THEN GOTO 1120 

1130 IF I$="E" THEN STOP 
1140 GOSUB 2240 
1150 RESTORE 

1160 IF I$="S" THEN GOSUB 1490:L 


1260 PRINT "WHICH RACE DO YOU WA 
NT TO TAKE PART INs" 

1270 PRINT 

1280 PRINT TAB[2];"BRITISH GRAND 
PRIX 2650MT si" 

1290 PRINT TAB(2] 5 "GERMAN GRAND 
PRIX 1700MT : 2 " 

1300 PRINT TAB( 2 ] 5 "ITALIAN GRAND 
PRIX 2200MT s3" 

1310 PRINT TAB[ 2 ];"MONACO GRAND 
PRIX 3100MT s4" 

1320 PRINT 

1330 PRINT TAB( 2 ];"ENTER A NUMBE 
R (1 TO 4}" 

1340 K$=INKEYS 

1350 IF K$<" 1 " OR K$>"4" THEN GO 
TO 1340 

1360 LET GP=VAL(K$) 

1370 PRINT n******************** 

**********11 

1380 PRINT TAB[5];"0K, THE "5 

1390 IF GP=1 THEN PRINT "BRITISH 

n. 

9 

1400 IF GP=2 THEN PRINT "GERMAN" 

9 

1410 IF GP=3 THEN PRINT "ITALIAN 

it. 
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1420 IF GP=4 THEN PRINT "MONACO" 

■ 

V 

1430 PRINT 11 RACE" 

1440 PRINT ********************* 
********** 

1450 PRINTsPRINT "OVER HOW MANY 
LAPS?" 

1460 INPUT LAP:IF LAP<1 THEN GOT 
0 1460 

1470 LET LAP=INT[LAP+.5)sLET L2A 
P=LAP 

1480 REM *********************** 
* 

1490 REM BRITISH DATA 

1500 LET SPEEDS 40 

1510 FOR X=1 TO 9 

1520 READ D[X] sREM DISTANCE BETW 

EEN CORNERS 

1530 NEXT X 

1540 DATA 800,400,250,200,250,30 

0,100,100,250 

1550 FOR X=1 TO 9 

1560 READ C[X) sREM RECOMMENDED M 

AXIMUM CORNERING SPEB) 

1570 NEXT X 

1580 DATA 150,90,175,200,200,90, 

90,150,150 

1590 FOR X=1 TO 9 

1600 READ A(X):REM AVERAGE NUMBE 

R OF MOVES ALLOWED BETWEEN CORNE 

RS 

1610 NEXT X 

1620 DATA 8,4,2,2,2,2,1,1,2 

1630 LET APP=800:LET WW=10:LET Q 

0=24:LET RR=2650 

1640 IF GP=1 THEN RETURN 

1650 REM *********************** 

* 

1660 REM GERMAN DATA 
1670 LET SPEED=85 
1680 FOR X=1 TO 7 


1690 READ D(X) 

1700 NEXT X 

1710 DATA 600,200,100,150,250,20 

0,200 

1720 FOR X=1 TO 7 
1730 READ C[X] 

1740 NEXT X 

1750 DATA 90,175,120,90,200,200, 
175 

1760 FOR X=1 TO 7 
1770 READ A[X) 

1780 NEXT X 

1790 DATA 6,2,1,2,2,2,2 
1800 LET APP=600:LET WW=8:LET QQ 
=17: LET RR=1700 
1810 IF GP=2 THEN RETURN 
1820 REM *********************** 
* 

1830 RBi ITALIAN DATA 
1840 SPEED =108 
1850 FOR X=1 TO 7 
1860 READ D(X) 

1870 NEXT X 

1880 DATA 800,300,100,150,300,35 

0,200 

1890 FOR X=1 TO 7 
1900 READ C(X) 

1910 NEXT X 

1920 DATA 120,90,90,150,200,120, 
150 

1930 FOR X=1 TO 7 
1940 READ A[X) 

1950 NEXT X 

1960 DATA 8,3,2,1,3,3,2 

1970 LET APP=800:LET WW=8:LET QQ 

=22:LET RR=2200 

1980 IF GP=3 THEN RETURN 

1990 REM *********************** 

** 

2000 REM MONACO DATA 
2010 LET SPEED=162.5 
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2020 FOR X=1 TO 14 
2030 READ D(X] 

2040 NEXT X 

2050 DATA 400,100,100,300,400,30 

0,150,200,200,200 

2060 DATA 150,150,200,250 

2070 FOR X=1 TO 14 

2080 READ C(X) 

2090 NEXT X 

2100 DATA 175,150,175,200,120,20 

0,175,90,175,150 

2110 DATA 150,175,120,150 

2120 FOR X=1 TO 14 

2130 READ A(X) 

2140 NEXT X 

2150 DATA 4,1,1,3,4,3,1,2,2,2 

2160 DATA 1,2,2,2 

2170 LET APP=400: LET WW=15:LET Q 

Q=30:LET RR=3100 

2180 RETURN 

2190 RBI *********************** 
** 

2200 REM INITIALIZATION 


2210 BORDER 6: PAPER 7: IMC 1: C 
LS 

2220 RANDOMIZE 

2230 DIM A(14):DIM C(14]:DIM D(1 
4] 

2240 LET C=1sLET FP=6:LET PNT=0: 

LET NC=OsLET CP=0 

2250 LET AM=0:LET RP=OsLET APP=0 

2260 LET NUM=0:RB1 NUMBER OF MOV 

ES 

2270 LET ENG=100:LET BRAK=10: LET 
TRAV=0:LET DIST=0 
2280 LET EFLAG=0 

2290 LET X=0 

2300 RETURN 

2310 RBI *********************** 
** 

2320 REM DELAY 

2330 PAUSE 200:80RDER INT(RM>*8] 
: BEEP .1,INT(RND*50)-20 
2340 RETURN 
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Flight Simulation 


10 REM FLIGHT SIMULATION 
15 REM SPECTRUM VERSION 
20 LET RPT=0 
30 LET LD=INT(RM)*360) 

40 DIM E$(1000):REM THIS HOLDS F 
LIGHT RECORD 

50 DIM A$(7|14] sDIM C$(7„14):REM 
THESE ARRAYS HOLD HORIZON AND C 
OMPASS OUTPUT 
60 REM ***************** 

70 GOSUB 2320:REM INITIALIZE 
80 IF CRASH=0 THEN GOSUB 820:REM 
HORIZON/COMPASS 
90 GOSUB 500:REM PRINTOUT 
100 IF CRASH=1 THEN GOTO END 
110 IF LAND=1 AND UFLAG=1 THEN P 
RINT "WELL DONE. A PERFECT LANDI 
NG11": GOTO EM) 

120 IF LAND=1 AM) UFLAG=0 THEN P 
RINT "YOUR WHEELS ARE UP":GOSUB 
1780:GOTO 90 

130 LET T=AIRSPEH):LET STALL=0 
140 LET X$=INKEY$ 

150 IF X$="R" THEN LET RPT=1 :GOT 
0 70 

160 IF RPT=1 AND E$(CL0CK+1 )="" 

THEN LET RPT=0:G0T0 140 

170 IF RPT=1 THEN LET X$=E$(CLOC 

K+1) 

180 IF X$="" THEN GOTO 140 
190 IF CLOCK<999 THEN LET E$[CLO 
CK+1} =X$ 

200 IF TAKE0V=1 THEN LET ELEVATE 
=INT( ELEVATE+RM)*2-RM)*3) 

210 IF AIRSPEED<3 THEN GOTO 290 
220 IF X$="Q" THEN LET ELEVATE=E 
LEVATE+5:LET EFLAG=5:IF ELEVATE> 
60 THEN LET STALLS 
230 IF X$="A" THEN LET ELEVATE=E 


LEVATE-5:LET EFLAG=-5:IF ELEVATE 
<-70 THEN LET STALL^-1 
240 IF STALLOO THEN GOSUB 1640 
250 IF ALTIMETER<1 THEN GOTO 290 
:REM PREVENTS DRAMATIC TURNS ON 
THE GROUM) 

260 IF X$="Z" THEN LET WA=WA-.5: 
LET ANG=ANG-6:IF WA<-3 THEN LET 
WA=-3 

270 IF X$="M" THEN LET WA=WA+.5: 
LET ANG=ANG+6:IF WA>3 THEN LET W 
A=3 

280 LET ANG=INT(ANG+RND*2-RND*2) 

290 IF X$=" " THEN LET AIRSPEH)= 
AIRSPEED+8.5 

300 IF X$="." THEN LET AIRSPEH)= 
AIRSPEED-7 

310 LET AIRSPEED =AIRSPEB)-ELEVAT 
E/5 

320 IF UFLAG=1 THEN LET AIRSPEED 
=AIRSPEED-1.5:LET FUEL=FUEL-.5 
330 IF AIRSPEHXO THEN LET AIRSP 
EED=0 

340 IF AIRSPEED>400 THEN LET AIR 
SPEED =400 

350 IF X$="1" AM) UFLAG=0 THEN L 
ET UFLAG=1 :GOTO 370 
360 IF X*="1" AND UFLAG=1 THEN L 
ET UFLAG=0 

370 LET FUEL=FUEL-IABS{T-AIRSPEE 
D)/10)-3.75 

380 IF FUELS THEN GOSUB 1780 
390 IF TAKE0V=1 THEN GOTO 420 
400 IF ELEVATE>10 AND AIRSPEED >4 
5 AND AIRSPEED <60 AM) UFLAG=1 TH 
EN LET TAKE0V=1 

410 IF TAKE0V=0 THEN LET ALTIMET 
ER=0:GCT0 450 
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420 IF LAND=0 AND AIRSPEBK30 TH 
EN LET ELEVATE=ELEVATE-5:LET ALT 
IMETER=9*ALTIMETER/10 
430 LET ALTIMETER=ALTIMETER+INT( 
((ELEVATE+.1)*AIRSPEED)+EFLAG*AI 
RSPEH)/1000) /80 

440 IF ALTIMETER<300 AND TAKE0V= 

1 THEN LET ALTIMETER=ALTIMETER+A 

IRSPEH)/30+ELEVATE 

450 IF ALTIMETER<0 THEN 60SUB 17 

80:REM CRASH 

460 REM CHANGE NEXT TWO LINES TO 
MAKE IT EASIER (OR EVEN H 

ARDER) TO LAND 

470 IF ALTIMETER>15 AM) AIRSPEED 
>20 OR TAKE0V=0 THEN GOTO 80 
480 IF ABS(AN6-LD]<13 OR ABS[ANG 
+360-LD] <13 THEN LET LAND=1:G0T0 
80 

4S0 RBI ******************* 

500 RBI PRINTOUT 
510 CLS 

520 PRINT " H0RIZ0N";TAB(20] 
HEADING" 

530 LET EV=INT(ELEVATE/10] 

540 IF EV>2 THEN LET EV=2 

550 IF EV<-2 THEN LET EV=-2 

560 IF EV<>0 AND TAKE0V=1 AND CR 

ASH=0 THEN GOSUB 1920 

570 PRINT -:- 

_.M 

■ 

580 FOR J=1 TO 7 

590 PRINT INK 7: PAPER 1;": ";A$ 
tJJl" :";C$(J] 

610 NEXT J 

620 PRINT - 

630 LET DIST=OIST+ABS((COS(ELEVA 

TE])*AIRSPEH)]/360 

640 LET CL0CK=CL0CK+1 

650 PRINT ":RANGE "}INT(DIST*10) 


/I0;” : TIME "}INT(CL0CK)/10;" : 
"}LD 

660 PRINT - 

- 

670 PRINT ":AIRSPEED : ";INT(AIR 
SPEED) 

680 PRINT ";Q*( TO INT(AIRSPE 
ED/20));»>" 

690 PRINT "rALTIMETER: ";INT(ALT 
IMETER); 

700 IF ANG<0 THEN PRINT TAB(19); 
360+ANG}" DEG." 

710 IF ANG>=0 THEN PRINT TAB(19) 
jANG}” DEG." 

720 LET MR=INT(ALTIMETER/30):IF 

MR>20 THEN LET MR=20 

730 PRINT ": ";Q$( TO MR]}">" 

740 PRINT "-.FUEL : "jINT(FUE 
L] 

750 PRINT ";Q$( TO 20-INT[FUE 
L/750));">" 

760 PRINT ":- 

_ .« 

■ 

770 PRINT ":ELEVATION: ";ELEVATE 
": ";:GOSUB 2210:PRINT U$ 

780 IF UFLAG=1 THEN PRINT ":";TA 
8(5);"> UNDERCARRIAGE DOWN < :" 
790 IF UFLAG=0 THEN PRINT ":";TA 
B(6);”> UNDERCARRIAGE UP < :" 

794 BEEP .03,12:BEEP .03,18 
800 RETURN 

810 RBI ************************ 
** 

820 REM ASSIGN HORIZON/COMPASS 
830 IF ABS(INT(WA+.5))=3 THEN GO 
SUB 980 

840 IF ABS(INT(WA+.5))=2 THEN GO 
SUB 1070 

850 IF ABS(INT[WA+.5))=1 THEN GO 
SUB 1160 

860 IF INT(WA+.5)=0 THEN GOSUB 1 
250 
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II 


870 REM NEXT TWO LINES USH) TO G 
RADUALLY STRAIGHTEN UP WINGS 
880 IF WA>0 THEN LET WA=WA-.2 
890 IF WA<0 THEN LET WA=WA+.2 
900 IF WA>.2 THEN GOTO 1350 
910 FOR Z=1 TO 7 
920 LET M$[8-Z)=A$(Z) 

930 NEXT Z 

940 FOR Z=1 TC 7 

950 LET A$(Z]=M$(Z) 

960 NEXT Z 

970 GOTO 1350 

980 REM WA=3 OR -3 


990 1 

LET A$(1 )=" 

* 

ti 

1000 

LET A$(2)=" 

** 

n 

1010 

LET A$[3)=" 

** 

ii 

1020 

LET A$(4)=" 

♦* 

it 

1030 

LET A$(5)=" 

** 

n 

1040 

LET A$(6)=" 

** 

n 

1050 

LET A$(7)="** 

if 

1060 

RETURN 



1070 

RB4 WA=2 OR 

-2 


1080 

LET A$[1]=" 


it 

1090 

LET A$(2)=" 

** 

ii 

1100 

LET A$(3)=" 

*** 

n 

1110 

LET A$(4J=" 

**♦ 

ii 

1120 

LET A$(5]=" 

*** 

n 

1130 

LET A$(6]="*** 

ii 

1140 

LET A$(7)=" 


ii 

1150 

RETURN 



1160 

REM WA=1 OR 

-1 


1170 

LET A$(1 ]=" 


ti 

1180 

LET A$(2)=" 


n 

1190 

LET A$(3)=" 

****** 

1200 

LET A$(4)=" 

****** 

n 

1210 

LET A$[5)="**** 

ii 

1220 

LET A$(6)=" 


it 

1230 

LET A$[7]=" 


if 

1240 

RETURN 



1250 

RBI WA=0 



1260 

LET A$(1]=« 


ti 


1270 LET A$[2)=" 

1280 LET A$[3)=" 

1290 LET A$(4)="*********♦****" 

1300 LET A$(5]=“ " 

1310 LET A$(6]=" " 

1320 LET A$(7)=" " 

1330 RETURN 

1340 RBI *********************** 
*** 

1350 REM ASSIGN COMPASS STRINGS 

1360 LET F2=ANG-F1 

1370 IF F2<0 THEN LET FA=INTl(F2 

+375J/30) 

1380 IF F2>=0 THEN LET FA=INT((F 
2+15)/30] 

1390 IF FA=12 THEN LET FA=0 
1400 LET C$[1)=" .N. " 

1410 IF FA=11 THEN LET C$(2]=" 
"sGOTO 1450 

1420 IF FA=0 THEN LET C$(2)=" . 

.«.. "sGOTO 1450 

1430 IF FA=1 THEN LET C$(2]=" . 

"sGOTO 1450 

1440 LET C$(2]=" ." 

1450 IF FA=10 THEN LET C$(3)= " 
.e : .."sGOTO 1480 
1460 IF FA=2 THEN LET C$l3)= " . 
. : fi."sGOTO 1480 

1470 LET ." 

1480 IF FA=9 THEN LET C$(4]=" W® 
-X—E" sGOTO 1510 

1490 IF FA=3 THEN LET C$[4]=" W- 

-X-«E" sGOTO 1510 

1500 LET C$(4)=" W—X—E" 

1510 IF FA=8 THEN LET C$(5)=" .« 
s .."sGOTO 1540 

1520 IF FA=4 THEN LET C$(5]=" .. 
S e."sGOTO 1540 

1530 LET ." 

1540 IF FA=7 THEN LET C$(6]=" . 

®s.. "sGOTO 1580 
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1550 IF FA=6 THEN LET C$(6)=" . 

"sGOTO 1580 

1560 IF FA=5 THEN LET C$(6J= M . 

"sGOTO 1580 

1570 LET C$[6)=" " 

1580 LET C$[7]=" .S. " 

1590 IF ANG>360 THEN LET ANG=ANG 
-360 

1600 LET F2=ANG 

1610 IF W>0 THEN LET W=W-.4 

1620 IF W<0 THEN LET #=*+.4 

1630 RETURN 

1640 REM STALL/FALL 

1650 IF STALL=-1 THEN GOTO 1710 

1660 FOR J=1 TO 10 

1670 PRINT TAB(J]; FLASH 1; INK 

2;"YOU HAVE STALLED!" S INK 7 

1680 NEXT J 

1690 LET AIRSPEH)=AIRSPEED/4 

1700 RETURN 

1710 FOR J=1 TO 10 

1720 PRINT TAB[J); INK 2; FLASH 

1; "UNCONTROLLED DIVE!!"sINK 7 

1730 PRINT TAB[21-J]; FLASH 1; I 

NK 2;"PULL UP!! M gINK 7 

1740 NEXT J 

1750 LET ALTIMETER=4*ALTIMETER/5 


1852 FOR T=10 TO -20 STEP -Is BE 

EP .05 V T: NEXT T 

1860 FOR J=1 TO 7 

1870 LET G=INT(RND*11]+1 

1880 LET A$(J]=H$(G TO G+13] 

1890 NEXT J 
1900 RETURN 

1910 REN *********************** 
*** 

1920 REN ADJUST HORIZON 
1930 LET G$=" ":REN 

14 SPACES 
1950 RETURN 

2200 REN ********************* 
2210 RBI INPUT INTO CONNAND NAME 

2220 LET U$="-" 

2230 IF X$=" " THEN LET U$="THRO 
TTLE ON" 

2240 IF X$="." THEN LET U$="THRO 
TTLE OFF" 

2250 IF X$="Q" AND ALTINETER>0 T 
HEN LET U$="CLINB" 

2260 IF X$="Q" AND ALTINETER=0 T 
HEN LET U$="NOSE UP" 

2270 IF X$="A" THEN LET U$="NOSE 
DOWN" 

2280 IF X$=»Z" THEN LET U$="BANK 


1760 RETURN LEFT" 

1770 REN *********************** 2290 IF X$="N" THEN LET U$="BANK 
*** RIGHT" 

1780 REN CRASH 2300 RETURN 

1790 LET CRASH=1 2305 STOP 

1800 LET ALTINETER=0 2310 REN ********************* 

1810 LET H$="** ♦C R** A *♦ S* 2320 RBI INITIALIZATION 

H* !!*":REN 25 CHARACTERS LONG 2330 PAPER 0: INK 7s CLS 
1820 CLSsFOR J=1 TO 20 2335 DIN N$[14,14]s LET W=0 

1830 PRINT TAB(J];"CRASH!" 2340 RANDONIZE 

1840 PRINT TAB121-J); INK 2;"CRA 2342 LET END=2305 

SH!" 2350 LET Q$="- 

1850 NEXT J -"sREN 21 CHARACTERS IN STRING 
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2360 LET UFLAG=1:REM UNDERCARRIA ELEVATION 

GE: 1 - DOWN, 0 - UP 2430 LET WA=0:REM 'WING ANGLE; U 

2370 LET EFLAG=0:REM CLIMB RATE SED IN HORIZON PRINTOUT 
2380 LET ANG=0:LET TAKEOV=OsLET 2440 LET FUEL=750sLET CRASH=OsLE 
LAND=0 T F2=0:LET F1=0:REM FOR DIRECTIO 

2390 LET AIRSPEH>=0 N CHANGE/COMPASS ROUTINE 

2400 LET DIST=0:REM DISTANCE COV 2450 LET CL0CK=0:REM TIME 

ERED 'RANGE' 2460 LET X*="" 

2410 LET ALTIMETER=0 2470 RETURN 

2420 LET ELEVATE=0:REM ANGLE OF 
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Imagine. Now you can use your computer as a window onto 
artificial reality. Fly a plane with FLIGHT SIMULATION. Control a 
ROBOT. Play the STOCK MARKET. Take pari in a GRAND PRIX 
classic race, or participate in American GRIDIRON. 

This book will give your computer power. Power to replicate 
reality in a way which can be quite uncanny. 

From microbes which fight it out in a closed environment for the right 
to survive, to the program which puts you in the cockpit of a 
particularly temperamental plane, there is a wide range of 
programs to allow you to experience this power in action. 

Of course, there is much more than program listings in this book. As 
well as the ready-to-run material, you'll discover how easy it is to 
analyse real-life situations so you can create your own computer 
simulations for entertainment and instruction. 

Machine-specific listings included for SPECTRUM +, BBC 
MICRO, COMMODORE 64, AMSTRAD, all MSX machines, 
plus any machine which uses Microsoft BASIC. 


































